如何判断鼠标的双击?

Question

比如对一个BUTTON1进行操作,除了用ONDBLCLICK事件后,还有什么方法可以判断到双击?? 
举个例子!
谢谢!

Answer 1

为什么不用dblclick？
为什么不用dblclick？
为什么不用dblclick？

Answer 2

可以用windows 消息吧.还有楼上说的很对呀.

Answer 3

DbClick字面的意思就可以看出来了

Answer 4

在click和dblClick事件里面分别设两个全局变量进行记录不就行了？

Answer 5

你们估计是误解楼主的意思了
鼠标的双击是这样写的
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
因此你判断鼠标的按键次数即可。

Answer 6

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssDouble in Shift then ShowMessage('有双击事件发生');
end;