Setzen von Font.Style funzt nicht wirklich

[jim_raynor]

Zitat von torud:

Delphi-Quellcode:

procedure Tobj_properties.chk_lineClick(Sender: TObject);
begin
    if chk_bold.Checked then
      ((form2.FormDesigner1.Control as TLabel).Font.Style:=
       (form2.FormDesigner1.Control as TLabel).Font.Style + [fsUnderline])
    else
      ((form2.FormDesigner1.Control as TLabel).Font.Style:=
       (form2.FormDesigner1.Control as TLabel).Font.Style - [fsUnderline]);
end;

Zitat von torud:

Das Problem ist, dass die Styles gesetzt werden und das setzen und Löschen von fsbold IMMER funktioniert, aber das Setzen und Löschen von fsUnderline und fsItalic nur teilweise und ich kapier nicht warum.

Schau dir mal dir mal deine Prozedur GANZ genau an. Du fragst die falsche Checkbox ab
Schönen Tag noch und viel Spass beim