关于speedbutton的简单问题！

Question

speedbutton有OnDbClick这个事件，但是我写了以后，双击按钮，没反应。
这是怎么回事？

Answer 1

选中控件，然后在"object inspector"栏的"events"页中找到"ondbclick"双击即可。

Answer 2

用下面的代码可以模拟双击事件，要在窗体上放置一个Timer控件
var
  Form1: TForm1;
  b_First:Boolean;
implementation{$R *.dfm}procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if b_First then
  begin
    b_First:=False;
    ShowMessage('Double Clicked.');
  end
  else
    b_First:=True;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  b_First:=True;
  Timer1.Interval:=500;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  b_First:=False;
end;

Answer 3

dbclick事件只有在属性down=true时才会响应，源代码里是这样写的，也不知道为什么
属性down只有在GroupIndex>0时才能设为true--
"The Down property only applies if the GroupIndex property of the button is nonzero."