delphi - 如何以编程方式更改 Tlabel 的 FontColor

Question

当我将 aTLabel放在表单上时，我可以通过更改FontColor属性来更改其文本的颜色。但是，当我在我的程序中这样做时

Label1.FontColor := TAlphaColors.Aquamarine;

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

score 8 · Accepted Answer

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

它是一个数组，定义了当前样式定义的不同设置，不能通过其他方式更改。

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

你可以用编程方式做到这一点

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

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

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

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

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

score 1 · Accepted Answer

1

为 TText 控件创建一个 TLabel。问题解决了！

于 2014-02-03T20:50:05.470 回答

score 1 · Accepted Answer

我刚刚尝试了@NicolasDusart 的答案，发现 aTLabel似乎没有StyledSettings. 我猜这在较新版本的 Delphi 中发生了变化，我目前正在使用 Delphi Tokyo。但是有了这个我能够改变字体颜色：

Label1.StyleElements := Label1.StyleElements - [seFont];

Delphi 文档列表TStyleElements如下：

type TStyleElements = set of (seFont, seClient, seBorder);

score -1 · Accepted Answer

-1

我们可以以编程方式更改 TLabel 颜色：

Label1.Font.Color := clBlue;

于 2021-01-06T09:56:44.210 回答

4 回答 4