Podwójne kliknięcie

0

Hej mam maly problem jak moge przechwycic podwojne klikniecie w dowolnym miejscu do tej pory probowalem za pomoca hook'a i pojedyncze klikniecia dzialaly elegancko ale podwojne nie chce reagowac czemu? Oto kod jak to robilem na pojedynczym:


function MouseHook(Code: Integer; wParam : WPARAM;
  lParam : LPARAM): Longint; stdcall;
var
  Buffer : TEventMsg;
  P : TPoint;
  Buffer2 : array[0..128] of Char;
begin

  Result := 0;
  Buffer := PEventMsg(lParam)^;
  case Buffer.message of
  WM_MBUTTONDOWN : WMMIDDLE:=true;
  WM_MBUTTONUP : WMMIDDLE:=false;
  end;
  if Buffer.message=WM_LBUTTONDOWN then
   if WMMIDDLE=true then
    Msg(1);
  if Buffer.message=WM_RBUTTONDOWN then
   if WMMIDDLE=true then
    Msg(5);

end;
`</code>`
0

to przejmij dwa pojedyncze :D i jeśli nastąpią po sobie w krótkim odstępie czasu to będzie podwójne :D przynajmniej mnie się tak wydaje ;P

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0