delphi - 如何获取TSpeedButton的双击事件？

Question

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

谢谢，拉克什。

Answer 1

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

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

如果你想尝试一下，你可以从中删除“if FDown”，重新编译 vcl，它可能会为你工作。

-唐