Je bedoeld dus zo:
Delphi Code:
procedure KnopKlik(sender: TObject);
begin
Application.messagebox(PChar((Sender as TButton).Caption), PChar(Application.Title), mb_iconinformation);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
KnopKlik(Sender);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
KnopKlik(Sender);
end;
of nog mooier om alleen de code in de eerste onbuttonclick te zetten, en deze event handler ook aan de 2e knop te koppelen zodat je geen dubbele code schrijft.. Of gebruik maken van actions..
Bookmarks