Ventana de la aplicación en una sola posición.
Redefine WndProc, para que no haga nada cuando se recibe el mensaje WM_SYSCOMMAND, con el comando del sistema SC_MOVE.
Código Delphi
[-]
type
TForm1 = class(TForm)
protected
procedure WndProc(var Message: TMessage); override;
implementation
{$R *.DFM}
procedure TForm1.WndProc(var Message: TMessage);
begin
case Message.Msg of
WM_SYSCOMMAND: if (Message.WParam and $FFF0)= SC_MOVE then
Message.Result:=0
else
inherited;
else
inherited;
end;
end;