Zitat:
Dann nutze doch die Eigenschaft Tag des Buttons, um zu unterscheiden, welches Objekt es ist. Nummeriere die Buttons einfach fortlaufend wenn sie erstellt werden.
Richtig. Dann wird auch den code so aussehen
:
Delphi-Quellcode:
procedure TForm1.ButtonXClick(Sender: TObject);
begin
case TComponent(Sender).Tag of // TButton(Sender).Tag
1: ShowMessage('Button1');
2: ShowMessage('Button2');
3: ShowMessage('Button3');
...
end;
end;
Ich glaube, irgendwo gelesen zu haben, dass man lieber AS weglassen sollte. Das Code wird unnötig länger.
