Delphi 7 + Vista Ready Code = ShowModal Problem

[Peter1999]

Der "showmodal-bug" gehört schon zu den Klassikern in Delphi und wurde auch schon mehrfach diskutiert.
In D7 gibt ist einen einfachen workaround. Schlagwort zum Googeln: Disable Window Ghosting

Delphi-Quellcode:

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


// In der Projekt.dpr
begin 
  // Disable Window Ghosting anwenden:
  DisableProcessWindowsGhosting; 
  Application.Initialize; 
  Application.Title := 'Hidden Dialog Test'; 
  Application.CreateForm(TfrmMain, frmMain); 
  Application.Run; 
end.

Viele Grüße,
Peter