messagebox hinter modularen Fenstern

[CCRDude]

Das ist bekannt als "ghosting", der mMn praktischste Workaround ist, am Anfang des Codes (dpr, oder initialization einer Unit) DisableProcessWindowsGhosting aufzurufen:

Delphi-Quellcode:

procedure DisableProcessWindowsGhosting;
var DisableProcessWindowsGhostingImp: procedure;
begin
   {$IFNDEF FPC}
   DisableProcessWindowsGhostingImp :=
      GetProcAddress(GetModuleHandle('user32.dll'),
                     'DisableProcessWindowsGhosting');
   if (@DisableProcessWindowsGhostingImp <> nil) then begin
      DisableProcessWindowsGhostingImp;
   end;
   {$ENDIF FPC}
end;