如何给一个BUTTON定义一个双击事件

Question

如何给一个BUTTON定义一个双击事件，谢谢！

Answer 1

BUTTON没有双击事件，除非自己重新写一个，然后公布此方法出来
要不就换别的方法，比如用一个图片代替按扭

Answer 2

不一定是BUTTON，其它的没有双击事件的控件，可以自己定义一个双击事件吗？

Answer 3

继承TButton，做成一个控件unit   MyButton;interfaceuses   Windows,Classes,Messages,StdCtrls;type   TMyButton   =   class(TButton)
    private
          FOnDblClick:   TNotifyEvent;
    published
          property   OnDblClick:   TNotifyEvent   read   FOnDblClick   write   FOnDblClick;
          procedure   DblClick(var   Msg:TMessage);message   WM_LBUTTONDBLCLK;
    end;procedure   Register;implementationprocedure   Register;
begin
    RegisterComponents( 'Standard ',   [TMyButton]);
end;procedure   TMyButton.DblClick(var   Msg:TMessage);
begin
    if   Assigned(FOnDblClick)   then   FOnDblClick(Self);
end;end.

Answer 4

这个你可这样想的
1）定义一个全局变量 xx:integer;
2)在窗体的create事
xx:=0;
3)在button中设置一个判断即可如下：
xx:=xx+1;
if xx=2 then
  begin
   ShowMessage('双击事件激活');
  end;

Answer 5

onmousedown 时间里 记录点击次数 第二次时 计算时间间隔 一般以300MS为隔如果小于300MS则为双击  然后重置 点击次数