Onclick event bei schnellen klicken

[Der schöne Günther]

Windows legt doch in der "Warteschlange" für das Programm ein "Mausklick an Koordinate X|Y zum Zeitpunkt abc" ab. Wenn das Programm dann wieder reagiert arbeitet es diese Warteschlange weiter ab. Daher sollte doch eigentlich nichts verloren gehen, oder?

[Sir Rufo]

Zitat von Der schöne Günther:

Windows legt doch in der "Warteschlange" für das Programm ein "Mausklick an Koordinate X|Y zum Zeitpunkt abc" ab. Wenn das Programm dann wieder reagiert arbeitet es diese Warteschlange weiter ab. Daher sollte doch eigentlich nichts verloren gehen, oder?

so isses

[BadenPower]

Zitat von Sir Rufo:

Zitat von Der schöne Günther:

Windows legt doch in der "Warteschlange" für das Programm ein "Mausklick an Koordinate X|Y zum Zeitpunkt abc" ab. Wenn das Programm dann wieder reagiert arbeitet es diese Warteschlange weiter ab. Daher sollte doch eigentlich nichts verloren gehen, oder?

so isses

Da braucht doch aber nur irgendwo ProcessMessages oder HandleMessage auftauchen und schon ist der erneute Klick verschluckt.

[Der schöne Günther]

Aber wer sollte das tun? Und warum?

[Bladefire]

Danke für eure Antworten.

Ich benutze Turbo delphi.

Hier ein link zur Datei (sollte sich jemand traun):
https://www.dropbox.com/s/5rwhjyhevtnrtqs/test.rar?dl=0

Ich weis einfach nicht woran das liegt

[Bjoerk]

Was möchtest du damit ausrechnen?

gesuchtefarbe[i] := Trunc(Random()*5+1);

[himitsu]

Er wird nicht "verschluckt", sondern wird früher ausgeführt ... Mitten innerhalb eines anderen Ausführungspfades.
Das kommt besonders geil, wenn man globale Variablen benutzt.

0 + 1 = 1
Aber klickt hier mal doppelt

Delphi-Quellcode:

...
private
  FCount: Integer;
end;

procedure TFormWendat.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  FCount := 0;
  for i := 1 to 50 do begin
    Application.ProcessMessages;
    Sleep(100);
  end;
  FCount := FCount + 1;
  Button1.Caption := IntToStr(FCount);
end;

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