aktueller Font.Style einer Komponente

[Gerkey]

Ich möchte neben Font Name und Font Size auch den aktuellen Font Style einer Komponente ermitteln, kann für letzteren aber keine Hilfe in der Dokumentation finden.
Kann mir da jemand helfen ?

Gerkey

[Gollum]

Hallo,

der Font-Style ist in der Unit System.UITypes folgendermaßen deklariert:

Delphi-Quellcode:

type
  TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);
  TFontStyles = set of TFontStyle;

[Gerkey]

Danke für den Hinweis, aber habe als Nicht-Experte die Frage, wie ich z.B. über Abfrage im Programm feststellen kann, ob die aktuelle Beschriftung für einen Button nun fsBold oder fsItalic etc. ist ? Mit Button1.Font.Name und Button1.Font.Size ist das einfach, aber wie geht's mit Font.Style ? Wie hilft mir da System.UITypes ?

[nahpets]

Delphi-Quellcode:

if fsBold in Font.Style then begin
// Machwas ...
end;

[Gerkey]

danke !