如何在delphi Xe8中设置标签文本加粗答案

【问题标题】：How to set label text bold in delphi Xe8如何在delphi Xe8中设置标签文本加粗
【发布时间】：2015-07-13 21:15:10
【问题描述】：

如何在 Delphi XE8 firemonkey 多设备项目中将 TLabel 设置为 Bold 并恢复正常运行时？

我试过了，但它不起作用：

label.TextSettings.Font.Style := [TFontStyle.fsBold];

也试过了：

label.Font.Style := [TFontStyle.fsBold];

【问题讨论】：

标签： delphi fonts firemonkey delphi-xe8 tlabel

【解决方案1】：

设置label.StyledSettings.Style为false，则按照Fontstyle设置。

这里是在代码中切换StyledSettings.Stylewith 的示例代码（虽然我不记得我曾经来回玩过这些。对我来说，它更像是一开始的一次性设置）。

procedure TForm6.Button9Click(Sender: TObject);
begin
  if TStyledSetting.Style in Label3.StyledSettings then
    Label3.StyledSettings := Label3.StyledSettings - [TStyledSetting.Style]
  else
    Label3.StyledSettings := Label3.StyledSettings + [TStyledSetting.Style]
end;

然后切换TextSettings.Font.Style

procedure TForm6.Button8Click(Sender: TObject);
begin
  if TFontStyle.fsBold in Label3.TextSettings.Font.Style then
    Label3.TextSettings.Font.Style := Label3.TextSettings.Font.Style - [TFontStyle.fsBold]
  else
    Label3.TextSettings.Font.Style := Label3.TextSettings.Font.Style + [TFontStyle.fsBold];
end;

【讨论】：

这是不可能的。只能更改 label.styledsettings 而不能更改 styledsettings.style
我现在无法检查 XE8。您的意思是 Object Inspector 没有在 XE8 中向您显示 StyledSettings 吗？
哦，是的，它显示在对象检查器中，但我想在运行时进行。但是，谢谢这只适用于我如何在将文本更改为粗体后再次将文本更改为正常？
您在设计时可以做的事情也可以在运行时完成。改回来也是一样的方法。

【解决方案2】：

试试这个：

Label1.Font.Style := [fsBold];

我用的是delphi 10.4。

【讨论】：