我正在尝试设置标签字体颜色,如下所示:
- TLabel1.Font.Color := clGreen;
- TLabel2.Font.Color := clBlue;
- TLabel3.Font.Color := clRed;
但是当我选择自定义样式时:
- 项目 -> 选项 -> 应用程序 -> 外观 -> 自定义样式
- 启用“TableDark”并将其设置为“默认样式”:
然后运行程序,这就是我得到的:
标签字体颜色变回白色(只有当我使用其中一种自定义样式时才会发生这种情况),但我确实需要在程序中打开自定义样式,并且我还希望标签的字体颜色保持彩色而不是白色。
有什么办法可以解决这个问题吗?
最佳答案
Vcl 样式决定标签文本的属性(例如颜色)。然而,这可以被否决
从标签
StyleElements
中删除seFont
根据需要更改
Font
属性
在代码中,您可以例如写
Label4.StyleElements := Label4.StyleElements - [seFont];
Label4.Font.Color := clRed;
关于delphi - 如何在Delphi中允许标签字体文本颜色? (自定义样式问题),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/66325745/