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

How to set label text bold in delphi Xe8

如何在 Delphi XE8 firemonkey 多设备项目中将 TLabel 设置为粗体并返回正常运行时间?

我试过了,但没用:

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

也尝试过:

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

设置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;

试试这个:

Label1.Font.Style := [fsBold];

我用的是delphi10.4.