怎样使RadioButton在鼠标连续点击两次的情况下，触发它两次的onClick事件?

鼠标连续点击两次不就是OnDblClick事件吗？直接用就行了。

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

onClick事件
OnDblClick事件
同时响应。
你在onDbClick中让代码执行两次即可。
你在onDbClick中让代码执行两次即可。
很实用的方法，copy一次原代码，就会响应两次了
如果你要根据次数判断响应次数，那么就要写程序，判断鼠标左键点击次数，
然后 ……
RadioButton控件跟别的控件不一样,当它的Checked为True时,不管你的鼠标怎么点击,它的onClick事件都不会响应,各位大虾如果不信的话,可以去试试.
在onDblClick事件中执行两次onClick事件
No,我不去触发onDblClick事件,我只想触发onClick事件,当它的Checked为True时，点击它，不管点击多少次，
只要onClick事件能触发，我就达到目的了。
onClick事件
OnDblClick事件
是互相排斥的。只能实现一个，不能同时实现。
  真想同时实现之能改 Windows 的双击时间间隔了。
看控制面板里的鼠标设置，或者看有没有什么时间延迟全局变量什么的？？
好像越撤越远了,我想做的跟onDblClick事件和鼠标双击,没有一点关系,我只是想如何在，当它的Checked为True时，如何去触发onClick事件.还望各位大虾帮帮忙。
去尝试一下用OnMouseDown事件吧
可以满足你的要求（针对RadioButton）
设置一个flag,在onmousedown事件里
判断flag的值触发相应事件
procedure TForm1.RadioButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  RadioButton1Click(Sender);//onclick的相应函数
end;
这样总行了吧？
No,这样子做达不到我要的效果.当RadioButton的Checked为False时，在radiobutton上按下鼠标再拖拉到别的地方，那么,RadioButton的Checked还是为False,但radiobuttonmousedown却触发执行了。所以说，还是不行。
换用label放上图片，控制onclick事件，并根据状态更新图片
我有个馊点儿的主意：
RadioButton的文字不写，用Label代替，不就想触发什么触发什么了么？
嗨，不用图片。比如：在Label1的事件中写RadioButton1.checked:=true;不就行了？
在Onclick里写上代码!! 然后在OndblClick里调用两次Onclick事件,就ok了!!
For example:
Form1.dblclick(sender:Tobject)
begin
Click(sender);
Click(sender);
end;
解决!
在FORM1上加上两个RADIOBUTTON和一个MEMO控件. 加入以下代码:
定义部分加入:
    procedure ButtonMsg (var Message : TMessage);
代码部分加入:
procedure TForm1.ButtonMsg(var Message: TMessage);
begin
  if message.Msg = WM_LBUTTONDOWN then Memo1.Lines.Add ('ButtonMsg');
   Radiobutton1.Dispatch(message);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  radiobutton1.WindowProc := ButtonMsg;
end;
把Tradiobutton的CLICK给OverLoad掉就可以了呀
CMP 鼠標在TRadioButton上
    JNZ NotOn
    PUSH [Windows 的双击时间间隔]
    MOV [Windows 的双击时间间隔],10 ;數字"10"夠小的吧，不行的話，再小之
    ;----執行你的代碼...---
    POP [Windows 的双击时间间隔]
NotOn:
    RET
将RadioButton的OnClick代码写入MouseDown如下procedure TForm1.RadioButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
showmessage('2')
end;