delphi - 如何以编程方式更改标签的字体颜色

Question

当我在表单上放置 TLabel 时，我可以通过更改 FontColor 属性来更改其文本的颜色。但是，当我在程序中执行此操作时

Label1.FontColor := TAlphaColors.Aquamarine;

这不起作用。知道出了什么问题吗？

Answer 1

要启用修改 TLabel 对象的字体颜色，您需要更改其 StyledSettings 属性。

它是一个数组，定义由当前样式定义的不同设置，并且无法通过其他方式更改。

为了能够更改字体的颜色，您必须从此数组中删除 TStyledSetting.FontColor 条目。

您可以通过编程方式完成

Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.FontColor];

或者从设计器中的对象检查器中选择标签，进入StyledSettings并取消选中FontColor。

当前样式可以修复的其他设置是

• TStyledSetting.Family
• TStyledSetting.Size
• TStyledSetting.Style
• TStyledSetting.Other

因此，为了能够更改字体颜色和大小，您可以这样写:

Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.FontColor, TStyledSetting.Size];