如何在 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.Style
with 的示例代码(虽然我不记得我曾经来回玩过这些。对我来说,它更像是一开始的一次性设置)。
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.
如何在 Delphi XE8 firemonkey 多设备项目中将 TLabel 设置为粗体并返回正常运行时间?
我试过了,但没用:
label.TextSettings.Font.Style := [TFontStyle.fsBold];
也尝试过:
label.Font.Style := [TFontStyle.fsBold];
设置label.StyledSettings.Style
为false,则按照Fontstyle
设置。
这里是一个在代码中切换 StyledSettings.Style
with 的示例代码(虽然我不记得我曾经来回玩过这些。对我来说,它更像是一开始的一次性设置)。
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.