Hallo,
ich verwende LockWindowUpdate, allerdings musst du alle ProcessMessages und Updates aus deinem Code entfernen.
Bsp.:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
LockWindowUpdate(
Handle);
try
with TForm2.Create(Self)
do
Show;
finally
LockWindowUpdate(0);
end;
// End Finally
end;