[[ArdiIIa]]

Hola eldiegofg
De lo mas asequible que he visto por ahí, me quedo con esto.

Código Delphi [-]
procedure TForm1.TuComponenteClick(Sender: TObject);
var
  Msg: TMsg;
  TargetTime: Longint;
begin
  TargetTime := GetTickCount + GetDoubleClickTime;

  while GetTickCount < TargetTime do
    if PeekMessage(Msg, TuComponente.Handle, WM_LBUTTONDBLCLK, WM_LBUTTONDBLCLK, PM_NOREMOVE)
      then Exit;
  .... codigo......
end;


procedure TForm1.TuComponenteDblClick(Sender: TObject);
begin
ShowMessage('DOBLE click');
end;

Espero que te sirva.

Saludos