如何在delphi Xe8中设置标签文本粗体

Question

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

我试过这个，但它不起作用：

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

也尝试过：

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

Answer 1

将label.StyledSettings.Style设为false，然后它将遵循Fontstyle设置。

这是一个用代码切换StyledSettings.Style的示例代码（虽然我不记得我曾经用这些来回播放。对我而言，它更像是一个开始时设置。）

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;

Answer 2

尝试一下：

Label1.Font.Style := [fsBold];

我使用的是delphi 10.4。