Schriftstyles ändern

[ErdNussLocke]

Hi,
ich habe eine Frage:
Wie ändert man die Schriftstyles (Fett,Unterstrichen,etc) im Programm z.B. auf Knopfdruck?
Ich weiß das man die Größe so ändert:
Label1.font.size:=integer;
Wie ist der Befehl um die Schrift dann zu unterstreichen oder fett zu schreiben?
Eigentlich wäre es doch logisch:
Label1.font.style:=fsBold (o.ä.)
Aber das geht nicht :)
Hoffe mir kann wer helfen
Danke im Vorraus
MfG
ErdNussLocke

[dataspider]

Hi,

Delphi-Quellcode:

  Font.Style := [fsBold];
  // oder
  Font.Style := [fsBold, fsUnderline];

Cu, Frank

[marabu]

Herzlich willkommen in der Delphi-PRAXiS.

Frank war schneller, aber doppelt hält vielleicht besser.

Ein Font kann mehrere Styles gleichzeitig besitzen, deshalb ist die property Style ein Mengentyp - set of TFontStyle, was du auch im Object Inspector an der Mengenschreibweise [] erkennen kannst:

Delphi-Quellcode:

private
  USerFontStyle: TFontStyles;

procedure TDemoForm.BoldButtonClick(Sender: TObject);
begin
  with BoldButton do
  begin
    Tag := 1 - Tag;
    if Tag = 1 
      then Include(UserFontStyle, fsBold)
      else Exclude(UserFontStyle, fsBold);
  end;
  Font.Style := UserFontStyle;
end;

Grüße vom marabu