鼠标的双击

Question

我想在MOUSEDOWN事件中判断鼠标的双击怎样做呀

Answer 1

判断Shift的值
鼠标左键双击Shift = [ssLeft,ssDouble]
鼠标右键双击Shift = [ssRight,ssDouble]  if ssDouble in Shift then
  ...

Answer 2

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  {$J+}I: DWORD = 0;{$J-}
begin
  if GetTickCount - I <= GetDoubleClickTime then begin
    { TODO : 双击 }
    I := 0;
    Exit;
  end;
  I := GetTickCount;
end;