SoloCodigo

Hola de nuevo:

Alguien sabe cómo prevenir el movimiento de una forma?

En la red encontré este código pero solo funciona para desactivar la modificación del tamaño de la forma:


private
 
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

  {...}
implementation


procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if ((Msg.CmdType and $FFF0) = SC_MOVE) or
    ((Msg.CmdType and $FFF0) = SC_SIZE) then
  begin
    Msg.Result := 0;
    Exit;
  end;
  inherited;
end;