gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-02 03:06:23 27 4
gpt4 key购买 nike

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

我已经尝试过,但它不起作用:

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

还尝试过:

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

最佳答案

label.StyledSettings.Style设置为false,则它将遵循Fontstyle设置。

enter image description here

这里有一个示例代码,用于在代码中切换 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;

关于delphi - delphi Xe8中如何设置标签文本粗体,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30030922/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com