Setzen von Font.Style funzt nicht wirklich

[torud]

Also es muss wohl doch an der Komponente liegen, da es ohne sie mit statischem Code wunderbar funktioniert, siehe:

Delphi-Quellcode:

procedure TForm1.chk_boldClick(Sender: TObject);
begin
    if chk_bold.Checked then
      form1.Label1.Font.Style:=
      form1.Label1.Font.Style + [fsBold]
    else
      form1.Label1.Font.Style:=
      form1.Label1.Font.Style - [fsBold]
end;

procedure TForm1.chk_ulClick(Sender: TObject);
begin
    if chk_ul.Checked then
      form1.Label1.Font.Style:=
      form1.Label1.Font.Style + [fsUnderline]
    else
      form1.Label1.Font.Style:=
      form1.Label1.Font.Style - [fsUnderline]
end;

procedure TForm1.chk_kursivClick(Sender: TObject);
begin
    if chk_kursiv.Checked then
      form1.Label1.Font.Style:=
      form1.Label1.Font.Style + [fsitalic]
    else
      form1.Label1.Font.Style:=
      form1.Label1.Font.Style - [fsitalic]
end;