Onclick event bei schnellen klicken

[hathor]

Versuch:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
  DblClick:=false;
  Sleep(GetDoubleClickTime);
  Application.ProcessMessages;
  if not DblClick then ShowMessage('click');
end;

procedure TForm1.Image1DblClick(Sender: TObject);
begin
  ShowMessage('dblclick');
  DblClick:=true;
end;

oder ändere DoubleClickTime
function SetDoubleClickTime(Count: Word);