Zweiten Klick von Doubleklick verhindern / ignorieren

[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.