SpeedButton dblclick

[eldonfsr]

HI i trying to implement event double click on speedbutton but i don't get trigger always  first click how i can do doubleclick trigger..
some sad timer but i can implement that please help me..
 

[CM630]

Try this:

Code: Pascal  [Select][+][-]

1.  
2. unit Unit1;
3.  
4. {$mode objfpc}{$H+}
5.  
6. interface
7.  
8. uses
9.   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons, LCLIntf ;
10.  
11. type
12.  
13.   { TForm1 }
14.  
15.   TForm1 = class(TForm)
16.     SpeedButton1: TSpeedButton;
17.     procedure SpeedButton1Click(Sender: TObject);
18.   private
19.  
20.   public
21.  
22.   end;
23.  
24. var
25.   Form1: TForm1;
26.   FirstClick : QWord = 0;
27.   Latency : QWord = 1000;
28.  
29.  
30. implementation
31.  
32. {$R *.lfm}
33.  
34. { TForm1 }
35.  
36. procedure TForm1.SpeedButton1Click(Sender: TObject);
37. begin
38.   if ((GetTickCount64 - FirstClick) < GetDoubleClickTime) then
39.   begin
40.     ShowMessage ('double click');
41.   end
42.   else
43.     FirstClick:= GetTickCount64;
44. end;
45.  
46.  
47. end.
48.  
49.  

[Aruna]

HI i trying to implement event double click on speedbutton but i don't get trigger always  first click how i can do doubleclick trigger..
some sad timer but i can implement that please help me..

Use  OnMouseDown + ssDouble. [ LCL reports double-clicks via the mouse shift state, not via OnClick. ]

Code: Pascal  [Select][+][-]

1. procedure TForm1.SpeedButton1MouseDown(
2.   Sender: TObject;
3.   Button: TMouseButton;
4.   Shift: TShiftState;
5.   X, Y: Integer);
6. begin
7.   if ssDouble in Shift then
8.   begin
9.     ShowMessage('Double click detected');
10.   end;
11. end;

This works reliably, no timer needed.

[eldonfsr]

Ok Thanks, great help

[Thaddy]

Implementing doubleclick on TSpeedbutton? It is by design it isn't there.... Hence the name: TSpeedButton...

[CM630]

TSpeedButton has a published OnDblClick event and it does not work.
I find that confusing.

[Thaddy]

Yes, you can not un-publish that one.