[[Lepe]]

Lo mismo pero de otra forma.

Código Delphi [-]
  private
    { Private declarations }
    //
    procedure noMove(var Msg:Twmwindowposchanging);message wm_windowposchanging;
end;


procedure TForm1.noMove(var Msg: Twmwindowposchanging);
begin

  Msg.WindowPos.x := 100; // left
  Msg.WindowPos.y:= 200; // top
  Msg.WindowPos.cx:= 500; // ancho
  Msg.WindowPos.cy:= 600 // alto
end;

Cuando se cambie de posición, nosotros ponemos los valores

Saludos