delphi – 使用Aero获取TProgressBar控件的颜色

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

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

我使用的是Delphi 2010.

选项,按照对初学者最敏感的顺序,对初学者最不敏感：

(1)取出第三方进度条,并定期进行. (初学者和聪明的老家伙解决方案,具有讽刺意味的相同)

(2)获得剥皮/涂抹包,并按照您想要的方式绘制. (中间)

(3)学习使用Themes和UxThemes单元扩展自定义控件. (高级)

在你从#2和#3获得足够的痛苦之后,你将回到#1,而你身上的硬壳(明智的)旧计时器将做出与业余爱好者相同的决定.