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
