当双击它时,TspeedButton的双击事件没有被触发。我需要OnClick事件和OnDblClick事件的不同功能。
谢谢, 勒凯什。
答案 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