Font.Style auslesen

[Sharky]

Hai General2003.

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;