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

Question

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

我已经试过，但它不工作：

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

也试过：

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

Answer 1

设置label.StyledSettings.Style假的，那么它会按照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;