Einzelnen Beitrag anzeigen

ReDoX
(Gast)

n/a Beiträge
 
#3

Re: SpeedButton und OnDblclick funktioniert nicht!

  Alt 19. Mär 2005, 21:40
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
  Mit Zitat antworten Zitat