onClick + onDoubleClick

[yasR]

Hey, danke für die reichlichen Lösungen, aber kann da leider keine Lösung für mein Problem finden. ^^
PS: Habe mich jetzt für Panels entschieden, da Button ja keine DblClick Event besitzt.

Jedes Panel soll mit der Eigenschaft onClick und DblClick die selbe procedure aufrufen, die einfachste Lösung ist bestimmt diese:
Ich suche allerdings nach etwas besserem

Delphi-Quellcode:

procedure TForm1.Panel1Click(Sender: TObject);
begin

end;

procedure TForm1.Panel1DblClick(Sender: TObject);
begin

end;

procedure TForm1.Panel2Click(Sender: TObject);
begin

end;

procedure TForm1.Panel2DblClick(Sender: TObject);
begin

end;

procedure TForm1.Panel3Click(Sender: TObject);
begin

end;

procedure TForm1.Panel3DblClick(Sender: TObject);
begin

end;


// ..und noch weitere Panels 

end.