No funciona LockWindowUpdate en XP

[roman]

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