SpeedButton und OnDblclick funktioniert nicht!

[ReDoX]

Hi,
Bei mir geht das mit dem dblclck auch ned.
Ich habe mir mal eine komplizierte lösung ausgedacht...
Also Eine Global variable BbClick : Integer.

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 inc(BbClick);
 if BbClick mod 2 = 0 then showmessage('DbCick');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 
 BbClick := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 BbClick := 0;
end;

Das interval des Timers auf ca 500 ms setzt und fertig...das ist vieleicht nicht die eleganteste lösung aber sie funktioniert!
Mfg ReDoX