SpeedButton und OnDblclick funktioniert nicht!

[Khabarakh]

Wie wäre es mit GetTickCount?

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if GetTickCount - Ticks < 500 then
    ShowMessage('Doppelklick');
  Ticks := GetTickCount;
end;

Ich denke, auf QueryPerformanceCounter kann man hier verzichten .