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.


{...}
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;