3

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

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

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

也试过：

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

2 回答 2

6

设置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;
于 2015-05-04T13:11:50.933 回答
1

尝试这个：

Label1.Font.Style := [fsBold];

我用的是德尔福 10.4。

于 2020-11-07T08:41:35.713 回答