Zitat:
Delphi-Quellcode:
procedure TForm1.ActOnClick;
begin
// viel schicker Code
end;
procedure TForm1.Button1Click;
begin
ActOnClick;
end;
procedure TForm1.Button2Click;
begin
ActOnClick;
end;
wenn schon, dann so, wie mkinzler schon sagte.
eine Prozedur für Alle und diese im IO jeder der Komponenten zuweisen
und in der Prozedur kann man über den Sender rausbekommen, von welcher Komponente diese Ereignisprozedur aufgerufen wurde, bzw. welche Komponente den Aufruf abgesendet hat.
Delphi-Quellcode:
procedure TForm1.ButtonClick(Sender: TObject);
begin
if Sender = Button1 then begin
...
end else if Sender = Button2 then begin
...
...
end;
end;