Как получить событие двойного щелчка TSpeedButton?

Question

Событие двойного щелчка TspeedButton не срабатывает, когда я дважды щелкаю по нему. Мне нужны различные функции для событий OnClick и OnDblClick.

Спасибо, Ракеш.

Answer 1

Короткий ответ: событие двойного щелчка в Delphi не используется, если только свойство GroupIndex не равно нулю - согласно приведенному ниже коду это означает, что FDown может быть истинным.Если GroupIndex = 0, тогда FDown не будет истинным.Источник для этого события выглядит следующим образом:

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

Если вы хотите поиграть, вы можете удалить из него «if FDown», перекомпилировать vcl, и он, вероятно, будет работать нормально для вас.

-Don