如何允许 Delphi 中的标签字体文本颜色？ （自定义样式问题）

Question

我正在尝试设置标签字体颜色，如下所示：

• TLabel1.Font.Color := clGreen;
• TLabel2.Font.Color := clBlue;
• TLabel3.Font.Color := clRed;

但是当我选择自定义样式时：

• 项目 -> 选项 -> 应用程序 -> 外观 -> 自定义样式
• 启用'TableDark'并将其设置为'Default style':

然后是运行程序，这是我得到的：

标签字体颜色变回白色（只有当我使用其中一种自定义样式时才会发生这种情况），但我确实需要在我的程序中打开自定义样式，而且我还希望标签的字体颜色能够保持彩色而不是白色。

有什么办法可以解决这个问题吗？

Answer 1

Vcl 样式确定标签文本的属性（例如颜色）。但是，这可以被

否决

• 正在从标签 StyleElements

  中删除 seFont

• 根据需要更改 Font 属性

在代码中你可以，例如写

  Label4.StyleElements := Label4.StyleElements - [seFont];
  Label4.Font.Color := clRed;