[[cHackAll]]

En muchas aplicaciones es necesario diferenciar un Click de un DobleClick en un determinado componente. Todos los lenguajes de programación deberían cumplir tal diferenciación, sin embargo no es así y el motivo es obvio "Si hiciste un clic, pues ya lo hiciste!"

El evento manejado en los diferentes lenguajes de programación como “Doble Click”, es el manejo del mensaje WM_LBUTTONDBLCLK, el cual el enviado al producirse dos sucesiones consecutivas de un ‘Click” simple (LBUTTONDOWN), en un intervalo de tiempo predeterminado. Tal mecanismo produce que al hacer un “Click” doble, también se haya tenido que realizar un “Click” simple, y ambos mensajes son enviados y procesados por el lenguaje de programación (probado con Delphi 7se, Delphi 2007, vb, y vb.net).

Pueden existir varias formas de solucionar tal suceso, sin embargo el autor del truco concluyó que la mejor solución es la siguiente:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
 Timer.Interval := GetDoubleClickTime; // Timer.Enabled := False; Timer.OnTimer := Objeto.OnClick;
end;

procedure TForm1.ObjetoClick(Sender: TObject);
begin
 Timer.Enabled := Sender <> Timer;
 if Timer.Enabled then Exit;
 ShowMessage('Simple');
end;

procedure TForm1.ObjetoDblClick(Sender: TObject);
begin
 Timer.Enabled := False;
 ShowMessage('Doble');
end;