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);

[BadenPower]

Ich habe gerade die Anwendung getestet.

Es wird ein DblClick-Event ausgeführt.

Füge noch ein DblClick-Event mit folgenden Inhalt ein, dann funktioniert es:

Delphi-Quellcode:

procedure TForm1.img_placeholderDblClick(Sender: TObject);
begin
  img_placeholderClick(Sender);
end;