Font.Style auslesen

[Nalincah]

Wenn ich einen kursiven und fetten Text hab, dann sieht die Eigenschaft "Font.Style" so aus "[fsBold,fsItalic]"

Wie kann ich jetzt feststellen ob der Font-Style z.b. die Eigenschaft "fsBold" enthält

hier etwas pseudocode:

Delphi-Quellcode:

begin
  wenn fsBold in Font.Style vorkommt dann
    mache irgendwas
end;

[sakura]

Hast Du doch schon selbst geschrieben - jetzt nur noch übersetzen ;-)

Delphi-Quellcode:

begin 
  if fsBold in Font.Style them
    Foo;
end;

...:cat:...

[Sharky]

Hai General2003.

Zitat:

Zitat von General2003

Delphi-Quellcode:

begin
  wenn fsBold in Font.Style vorkommt dann
    mache irgendwas
end;

Ist doch schon zu 97% richtig ;-)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (fsbold IN Label1.Font.Style) then
  begin
   ShowMessage ('Label ist Fett');
  end;
end;