Como fijar una ventana?

[juliopag1]

Quiero saber como fijar una ventana, osea que no la puedan mover.

Hay alguna opcion?

Thank's

[dec]

Hola,

Supongo que por ventana quieres referirte a un formulario ("TForm"). Se me ha ocurrido una barbaridad, pero, en fin, allá va... Hemos de capturar el mensaje "WM_MOVE" en el formulario en cuestión; al crear el formulario guardaremos las propiedades "Top" y "Left" en sendas variables de tipo "integer". La declaración del formulario quedaría tal que así:

Código Delphi [-]
    type
      TfrmPrincipal = class(TForm)
        procedure FormCreate(Sender: TObject);
      private
        FTop, FLeft: integer;
        procedure WM_MOVE(var Msg: TMessage); message WM_MOVE;
      end;

El evento "OnCreate" del formulario de este modo:

Código Delphi [-]
    procedure TfrmPrincipal.FormCreate(Sender: TObject);
    begin
      FTop := Top;
      FLeft := Left;
    end;

Y el procedimiento "WM_MOVE" de este otro:

Código Delphi [-]
    procedure TfrmPrincipal.WM_MOVE(var Msg: TMessage);
    begin
      if (FTop <> 0) then
      begin
        Top := FTop;
        Left := FLeft;
      end;
    end;

Comprobamos antes que "FTop" no sea cero, pues el procedimiento se ejecuta incluso antes del evento "OnCreate" (a lo que parece) de tal modo que de no hacerlo así el formulario se situaría en la esquina superior izquierda de la pantalla y no habría luego quien lo moviera de ahí.

Ahora, por favor, decidme que me calme y que me tranquilize, porque hay alguna propiedad, algún método, en fin, alguna forma mucho más elegante, aparente, práctica y efectiva de hacer lo que se trata de llevar a cabo. ¿Eh?

[roman]

Hola,

El problema con la opción que comenta dec es que el efecto no es muy bueno: si la opción DragFullWindows (en propiedades de la pantalla) está activada, se nota un redibujado conforme se intenta mover la ventana. Si está desactivada entonces el usuario puede ver cómo se mueve la silueta de la ventana mientras la arrastra aun que al final se quede donde estaba.

Recomiendo revisar el hilo Como hacer que un usuario no mueva la form?

// Saludos

[[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

[[Lepe]]

En mi caso no ocurre, ya que antes de mover la ventana, es cuando le cambio los valores, así que no hay redibujado de pantalla.

En el ejemplo de Roman ¿hay que deshabilitar el maximizado? ... jamás quisiera empezar una contienda con roman.... bueno, tomando cervezas a lo mejor, pero en el resto de temas... paso


Edito: Retiro todo lo dicho, con este método tambien pasa lo mencionado por roman

[roman]

Empezado por Lepe

Retiro todo lo dicho, con este método tambien pasa lo mencionado por roman

Así es. No sucede si DragFullWindows está activo pero sí en el otro caso. Quizá podrías corregir un poco lidiando también con WM_MOVING, que es el que se encarga del dibujado de la silueta, pero entonces ya la cuestión se complica más de la cuenta.

A final de cuentas, para mover una ventana hay muchos pasos involucrados:

WM_NCHITTEST, WM_ENTERSIZEMOVE, WM_MOVING, WM_EXITSIZEMOVE, WM_MOVE, WM_WINDOWPOSCHANGING, WM_WINDOWPOSCHANGED

y uno puede intentar frenar los necesarios. Pero al quitar el comando SC_MOVE te evitas todo esto, simplemente le dices: está prohibido mover.

En cuanto a lo de maximizar la ventana pues esto lo puedes evitar quitando biMaximize de la propiedad BorderIcons.

Si además se desea evitar que se cambie el tamaño de la ventana, se puede añadir:

DeleteMenu(GetSystemMenu(Handle, false), SC_SIZE, MF_BYCOMMAND);

aunque en este caso también hay que trabajar WM_NCHITTEST para que el cursor del ratón no cambie de forma cuando se coloca sobre los bordes:

Código Delphi [-]
inherited;

if Msg.Result in [HTSIZEFIRST..HTSIZELAST] then
  Msg.Result := Windows.HTNOWHERE;

// Saludos

[roman]

El método tiene un problema que antes no había visto:

Si se quitan todos los iconos de la barra de título, entonces la ventana ya se puede mover. Veremos si se puede solucionar esto.

// Saludos

[yusnerqui]

Bueno pues me había construido este ejemplito:

Código Delphi [-]
  type
  TForm1 = class(TForm)
  private
    { Private declarations }
     procedure WMNCMOUSEDOWN(var Message: TMessage);
            message WM_NCLBUTTONDOWN;
....
 
implementation
...
 
procedure TForm1.WMNCMOUSEDOWN(var Message: TMessage);
begin
   if Message.wParam  <> HTCAPTION   then
      inherited;
end;

pero después de haber visto el hilo recomendad por roman....

mejor voy a estudiar

Saludos