Vamos a ver, creo que esto te debe funcionar en cualquier caso:
Código Delphi
[-]
type
TForm2 = class(TForm)
private
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
end;
implementation
procedure TForm2.WMSysCommand(var Msg: TWMSysCommand);
begin
case Msg.CmdType and $FFF0 of
SC_ZOOM, SC_RESTORE:
begin
EnableAnimation(false);
LockWindowUpdate(Handle);
inherited;
LockWindowUpdate(0);
EnableAnimation(true);
end;
else
inherited;
end;
end;
end.
donde Form2 es el formulario hijo y EnableAnimation es como en el otro hilo.
// Saludos