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.