如何在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;