Zweiten Klick von Doubleklick verhindern / ignorieren

[MyRealName]

Zitat von Uwe Raabe:

Eventuell kannst du diese Sequenz im OnCreate oder einem anderen geeigneten Event des zweiten Formulars (wegen Handle) aufrufen:

Delphi-Quellcode:

var
  M: TMsg;
begin
  M.Message := 0;
  while PeekMessage(M, Handle, WM_LBUTTONDOWN, WM_LBUTTONUP, PM_REMOVE) do 
  begin
    if (M.Message = WM_QUIT) then
      PostQuitMessage(M.wparam);
  end;
end;

Kann aber durchaus noch unerwartete Nebenwirkungen haben. Daher use on your own risk.

Kann aber auch sein, dass die 2. Klick Message noch garnicht in der Queue ist, da man ja noch im Code ist und die weiteren Windows Messages noch nicht behandelt wurden oder auch (durch die sehr schnellen Laufzeiten des Delphi Codes) der 2. Klick noch garnicht gemacht wurde, während man noch im OnCreate Event ist.