高手

求助： 求助高手
Label1-> Font-> Style   =   TFontStyles() < <   fsBold   < <   fsItalic;   　　粗斜体
Label1-> Font-> Style   =   TFontStyles() < <   fsItalic;　　　&#12539;&#12539;斜体
Label1-> Font-> Style   =   TFontStyles() < <   fsBold   ；　　粗体
那正常体怎么写的    
  这样写     Label1-> Font-> Style   =   TFontStyles()         ？     貌似不行啊    


[解决办法]
帮助里找到的
This example sets a Label 's Font Style to fsBold and fsUnderline.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1-> Font-> Style = TFontStyles() < < fsBold < < fsUnderline;
}
procedure Form1.Button1Click(Sender: TObject);
begin
Label1.Font.Style := [fsBold,fsUnderline];
end;

This example demonstrates how to clear any Styles that were previously set.

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Label1-> Font-> Style = TFontStyles();
}