onClick + onDoubleClick

[himitsu]

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;