Ventana de la aplicación en una sola posición

[dec]

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 {no hace nada}
                       else
                          inherited;
   else
       inherited;
   end;
end;