Delphi 使用Aero获得TProgressBar控件的颜色

如何在启用Windows Aero功能的情况下以编程方式获取TProgressBar控件的条形图颜色和背景色

我使用的是第三方进度条控件，而不是Delphi附带的默认控件，我正在尝试用正确的颜色绘制控件

---

我使用Delphi 2010。

选项，按对初学者最合理到对初学者最不合理的顺序排列：

（1） 取出第三方进度条，放入常规进度条。（初学者和聪明的老家伙解决方案，讽刺的是相同）

（2） 获取一个蒙皮/主题包，并使其按照您想要的方式绘制。（中级）

（3） 学习使用Themes和UxThemes单元扩展自定义控件。（高级）

---

在你经历了第二和第三阶段的痛苦之后，你会回到第一阶段，你身上那个脾气暴躁（聪明）的老家伙会做出与业余选手相同的决定。

我认为进度条不是单一颜色的。它是用一些漂亮的渐变绘制的。你想要均价的颜色吗？它看起来仍然不像航空主题。也许你想知道如何扩展第三方的控制，这样它就可以意识到，并用主题画自己？沃伦是对的。没有“酒吧颜色”。“随Delphi而来”实际上是一个本机Windows进度条控件（实际上，随Delphi而来的大多数组件，如

TEdit

，

TButton

，

TMemo

，

TRichEdit

，

TListBox

，

TImageList

，等等，都只是本机控件/对象的包装器）。标准Windows控件有什么问题？。如果你需要一个自定义控件，使用theme services API来绘制当前主题的进度条是非常容易的。请看我的答案和。我很好奇。为什么要使用第三方进度条控件？除了标准系统控制之外，它还能提供什么？无法支持Aero主题。：-）讽刺的是，是吗？+1选项1是赢家。试着不要去修复那些没有被破坏的东西。+1，在那里，做了那件事，整个循环回到#1我自己：）加上我嘲笑了这个描述——太真实了。