Wenn ich eine Ereignisbehandlungsroutine (was für ein Wort!) habe, die so aussieht:
Quelltext
1: 2: 3: 4:
| procedure TForm1.meine_routine(Sender : TObject); begin ShowMessage('Geklickt!'); end; |
dann kann ich sie benutzen, indem ich sie so dem Button zuweise, wenn ich ihn erstelle:
Quelltext
1: 2: 3: 4: 5:
| my_button:=TButton.Create(self); my_button.Parent:=form1; my_button.Caption:='Klick mich!'; my_button.name:='my_button'; my_button.OnClick:=meine_routine; //<-- da steht es! |
Und wenn ich die Routine für mehrere Buttons benutze, kann ich über Sender abfragen, welcher es denn war.
MfG,
Peter
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".