delphi - 如何在 Delphi 中将 TProgressBar(背景/进度条本身)的颜色更改为(自定义)颜色？

Question

最初的问题是关于 TGauge 的，但是正如评论中指出的那样，不建议使用它，加上任何将显示的(% 文本)标题设置为自定义颜色的尝试都会破坏反转(因为它的颜色只是从背景)也就是不会再有一半颜色了。

所以我打算使用 TProgressBar，但仍然存在它的颜色(背景/进度条本身)的问题，它似乎没有要更改的显式属性，它与当前的 Windows 主题相关联，但应该是一种忽略它的方式。

Answer 1

这并没有解决 TGauge 的问题，而是解决了 TProgressBar 的问题(而且我知道昨天有人对另一个 Delphi 问题进行了激烈的争论，有人没有回答 OP 提出的确切问题，所以请随意忽略).正如其他人指出的那样，TGauge 已被弃用，不再推荐使用。以下是更改 TProgressBar 的栏和背景颜色所需的代码。

ProgressBar1.Brush.Color:= clRed; // Set Background colour
SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlue); // Set bar colour