Question

TspeedButton’s Double click event has not fired when i double click on it.I need the different functionality for OnClick Event and OnDblClick Event.

Thanks,
Rakesh.

Answer 1

The short answer is that Delphi’s double-click event is not used unless the GroupIndex property is non-zero – per the code below, this means that FDown can be true. If GroupIndex = 0 then FDown won’t be true. The source for that event looks like this:

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

If you wanted to play around you could remove the “if FDown” from this, recompile the vcl and it would probably work ok for you.

-Don