delphi - 如何更改 TCheckBox、TRadioButton、TGroupBox 上的标题字体颜色？

Question

我不知道我的问题是什么，但我无法在 DEx2 中为 TCheckBox、TRadioButton、TGroubBox 和 TRadioGroup 等控件设置字体颜色。我是在 IDE 中还是以编程方式执行此操作并不重要。

我已将表单颜色设置为 clBlack，并希望我的标题为 clWhite，但它们不会呈现除 clBlack 之外的任何颜色。当我在窗体的 OnShow 事件上分配颜色并在调试器中单步执行它时，它会显示我分配给它的值，但在屏幕上它仍然是黑色的。

我没有使用样式或其他任何东西。有什么想法吗？

这是一个示例表单: white on black example http://www.skippix.us/temp/Delphi-Font-Problem.bmp

Answer 1

当您在应用程序中使用 Windows 主题时，大多数自定义设置(例如字体颜色)都会被忽略。作为解决方法并根据组件，您可以拥有控件(仅当支持此功能时)，重写绘制方法以便在字体中使用您自己的颜色( TRadioGroup ， TGroupBox )，以及对于像 TCheckBox 和 TRadioButton 这样的组件(是 WinAPI 控件包装器)您必须拦截 WM_PAINT windows 消息并实现您自己的代码来绘制控件。

此外，从 Delphi-xe2 开始，您可以使用 vcl styles，它允许您更改控件的外观，从这里(以及可能的情况下)您可以修改样式 Hook 以应用您自己的字体颜色和其他自定义设置。