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

发布时间：2020-12-15 09:52:19 所属栏目：大数据来源：网络整理

导读：当我在表单上放置TLabel时,我可以通过更改FontColor属性来更改其文本的颜色.但是,当我在我的程序中执行此操作时 Label1.FontColor := TAlphaColors.Aquamarine; 这不起作用.知道什么是错的吗？解决方法要启用修改TLabel对象的字体颜色,需要更改其StyledSet

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

Label1.FontColor := TAlphaColors.Aquamarine;

这不起作用.知道什么是错的吗？

解决方法

要启用修改TLabel对象的字体颜色,需要更改其StyledSettings属性.

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

若要更改字体的颜色,您必须从此数组中删除TStyledSetting.FontColor条目.

你可以用编程方式完成

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

或者从设计器中的Object Inspector中选择您的标签,进入StyledSettings并取消设置FontColor.

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

> TStyledSetting.Family
> TStyledSetting.Size
> TStyledSetting.Style
> TStyledSetting.Other

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!