如何在Delphi中允许标签字体文本颜色?(自定义样式问题)

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

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

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

  • 项目 -> 选项 -> 应用程序 -> 外观 -> 自定义样式
  • 启用“TableDark”并将其设置为“默认样式”:

然后运行程序,这就是我得到的:

标签字体颜色变回白色(这只会在我使用自定义样式之一时发生),但我真的需要在我的程序中打开自定义样式,而且我还希望标签的字体颜色保持彩色而不是白色.

有没有什么办法解决这一问题?

回答

Vcl 样式确定标签文本的属性(例如颜色)。然而,这可以被推翻

  • seFont从标签中删除StyleElements

  • Font根据需要更改属性

在代码中,您可以例如编写

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


以上是如何在Delphi中允许标签字体文本颜色?(自定义样式问题)的全部内容。
THE END
分享
二维码
< <上一篇
下一篇>>