blocks|key|2549374|text|若要修改TLabel对象的字体颜色，需要更改其StyledSettings属性。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2549375|它是一个定义不同设置的数组，这些设置由当前样式定义，不能通过其他方式更改。|2549376|为了能够更改字体的颜色，您必须从此数组中删除TStyledSetting.FontColor条目。|2549377|您可以使用以下命令以编程方式完成此操作|2549378|Label1.StyledSettings+:=+Label1.StyledSettings+-+[TStyledSetting.FontColor];|code-block|syntax|javascript|2549379|或者从设计器的对象检查器中，选择您的标签，进入StyledSettings并取消勾选FontColor。|2549380|可由当前样式修复的其他设置包括|2549381|2549382|TStyledSetting.Family|unordered-list-item|2549383|TStyledSetting.Size|2549384|TStyledSetting.Style|2549385|TStyledSetting.Other|2549386|2549387|因此，为了能够更改字体颜色和大小，您可以这样写：|2549388|Label1.StyledSettings+:=+Label1.StyledSettings+-+[TStyledSetting.FontColor,+TStyledSetting.Size];|2549389|entityMap^0|4|6|N|E|0|0|M|O|0|0|0|N|E|16|9|0|0|0|0|L|0|0|J|0|0|K|0|0|K|0|0|0|0^^$0|@$1|2|3|4|5|6|7|1B|8|@$9|1C|A|1D|B|C]|$9|1E|A|1F|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|1G|8|@]|D|@]|E|$]]|$1|H|3|I|5|6|7|1H|8|@$9|1I|A|1J|B|C]]|D|@]|E|$]]|$1|J|3|K|5|6|7|1K|8|@]|D|@]|E|$]]|$1|L|3|M|5|N|7|1L|8|@]|D|@]|E|$O|P]]|$1|Q|3|R|5|6|7|1M|8|@$9|1N|A|1O|B|C]|$9|1P|A|1Q|B|C]]|D|@]|E|$]]|$1|S|3|T|5|6|7|1R|8|@]|D|@]|E|$]]|$1|U|3|-4|5|6|7|1S|8|@]|D|@]|E|$]]|$1|V|3|W|5|X|7|1T|8|@$9|1U|A|1V|B|C]]|D|@]|E|$]]|$1|Y|3|Z|5|X|7|1W|8|@$9|1X|A|1Y|B|C]]|D|@]|E|$]]|$1|10|3|11|5|X|7|1Z|8|@$9|20|A|21|B|C]]|D|@]|E|$]]|$1|12|3|13|5|X|7|22|8|@$9|23|A|24|B|C]]|D|@]|E|$]]|$1|14|3|-4|5|6|7|25|8|@]|D|@]|E|$]]|$1|15|3|16|5|6|7|26|8|@]|D|@]|E|$]]|$1|17|3|18|5|N|7|27|8|@]|D|@]|E|$O|P]]|$1|19|3|-4|5|6|7|28|8|@]|D|@]|E|$]]]|1A|$]]

To enable modifying font color of a <code>TLabel</code> object, you need to change its <code>StyledSettings</code> property.

It's an array defining the different settings that are defined by the current style and cannot be changed by other means.

To be able to change the color of the font, you have to remove the <code>TStyledSetting.FontColor</code> entry from this array.

You can do it programmatically with

<pre><code>Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.FontColor];
</code></pre>

or from the Object Inspector in the designer, select your label, go in <code>StyledSettings</code> and untick <code>FontColor</code>.

Other settings that can be fixed by the current style are

<ul>
<li><code>TStyledSetting.Family</code></li>
<li><code>TStyledSetting.Size</code></li>
<li><code>TStyledSetting.Style</code></li>
<li><code>TStyledSetting.Other</code></li>
</ul>

So, for being able to change the font color and the size, you would write:

<pre><code>Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.FontColor, TStyledSetting.Size];
</code></pre>

blocks|key|2549343|text|TText控件的Sub。问题解决了！|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2549344|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

Sub a TLabel for TText Control. problem solved !

blocks|key|1891499|text|我刚刚尝试了@NicolasDusart的答案，发现TLabel似乎没有StyledSettings。我想这在较新版本的Delphi中发生了变化，我目前使用的是Delphi东京。然而，通过这个，我能够改变字体颜色：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1891500|Label1.StyleElements+:=+Label1.StyleElements+-+[seFont];|code-block|syntax|javascript|1891501|Delphi文档将TStyleElements作为集合列出：|1891502|type+TStyleElements+=+set+of+(seFont,+seClient,+seBorder);|1891503|Vcl.Controls.TStyleElements|1891504|entityMap|0|LINK|mutability|MUTABLE|url|http://docwiki.embarcadero.com/Libraries/Tokyo/en/Vcl.Controls.TStyleElements^0|Q|6|10|E|0|0|9|E|0|0|0|R|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@$9|Z|A|10|B|C]|$9|11|A|12|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|13|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|14|8|@$9|15|A|16|B|C]]|D|@]|E|$]]|$1|M|3|N|5|H|7|17|8|@]|D|@]|E|$I|J]]|$1|O|3|P|5|6|7|18|8|@]|D|@$9|19|A|1A|1|1B]]|E|$]]|$1|Q|3|-4|5|6|7|1C|8|@]|D|@]|E|$]]]|R|$S|$5|T|U|V|E|$W|X]]]]

I just tried the answer from @NicolasDusart and found out, that a <code>TLabel</code> doesn't seem to have <code>StyledSettings</code>. I guess this changed in newer versions of Delphi, I'm currently using Delphi Tokyo. However with this I was able to change the font color:

<pre><code>Label1.StyleElements := Label1.StyleElements - [seFont];
</code></pre>

The Delphi documentation lists <code>TStyleElements</code> as as set:

<pre><code>type TStyleElements = set of (seFont, seClient, seBorder);
</code></pre>

<a href="http://docwiki.embarcadero.com/Libraries/Tokyo/en/Vcl.Controls.TStyleElements" rel="nofollow noreferrer">Vcl.Controls.TStyleElements</a>

blocks|key|1896224|text|我们可以通过编程更改TLabel颜色，如下所示：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1896225|Label1.Font.Color+:=+clBlue;|code-block|syntax|javascript|1896226|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

We can change TLabel color programmatically as:
<pre><code>Label1.Font.Color := clBlue;
</code></pre>

When I put a <code>TLabel</code> on a form, I can change the color of its text by changing the <code>FontColor</code> property. However, when I do this in my program by

<pre><code>Label1.FontColor := TAlphaColors.Aquamarine;
</code></pre>

this doesn't work. Any idea what's wrong?

How to programmatically change the FontColor of a Tlabel

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云AI代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

功能1上新10个字符

功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符。

功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符。

功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符

功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符

功能4上新

文章&问答评论现已支持表情

全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验

社区富文本编辑器全新改版！诚邀体验～ 

精选全网热门MCP server，让你的AI更好用 🚀

💥开发者 MCP广场重磅上线！

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

当我将TLabel放在表单上时，可以通过更改FontColor属性来更改其文本的颜色。但是，当我在我的程序中通过Label1.FontColor := TAlphaColors.Aquamarine;这不管用。知道出什么问题了吗？

问如何以编程方式更改Tlabel的FontColor
EN

回答 4

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何以编程方式更改Tlabel的FontColorEN

回答 4

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何以编程方式更改Tlabel的FontColor
EN