Schriftstyles ändern

[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