Status eines Buttons ändern

[fLaSh11]

Zitat von HTML04:

Delphi-Quellcode:

procedure TForm2.ToolButton12Click(Sender: TObject);
begin
if not Toolbutton12.Down then toolbutton12.down := true
else Toolbutton12.Down := false;

das geht viel einfacher

Delphi-Quellcode:

procedure TForm2.ToolButton12Click(Sender: TObject);
begin
Toolbutton12.Down := not Toolbutton12.down;