如何获得TSpeedButton的双击事件。

时间:2011-11-10 03:37:54

标签: delphi delphi-7

当双击它时,TspeedButton的双击事件没有被触发。我需要OnClick事件和OnDblClick事件的不同功能。

谢谢, 勒凯什。

1 个答案:

答案 0 :(得分:5)

简短的回答是除非GroupIndex属性非零,否则不使用Delphi的双击事件 - 根据下面的代码,这意味着FDown可以为真。如果GroupIndex = 0,那么FDown将不为真。该事件的来源如下:

procedure TSpeedButton.WMLButtonDblClk(var Message: TWMLButtonDblClk);
begin
  inherited;
  if FDown then DblClick;
end;

如果您想要玩游戏,可以从中删除“if FDown”,重新编译vcl,它可能对您有效。

-Don