Zitat von
Nailor:
Delphi-Quellcode:
//yup, und wenn du das ganze als array machst und dann
procedure TForm1.ButtonClick;
begin
//hier
if sender = button[0] then ...
if sender = button[1] then ...
if sender = button[2] then ...
...
//einfügst, macht jeder Knopf was andres
end;
Sicher ist sicher:
Delphi-Quellcode:
procedure TForm1.ButtonClick(Sender: TObject); // 1. Fehler ;)
begin
if (Sender is TButton) then begin
if (Sender As TButton) = Button[0] then { ... }
end;
end;
Das Sender AS TButton ist eigentlich dann schon wieder überflüssig...
Chris