Como fijar una ventana?

[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

[[Lepe]]

Nada como quitar la barra de titulo, y como mucho, hacer una con un panel y 3 botones.

Ya no tenemos que atar de pies y manos, simplemente se las cortamos

Un saludo

[yusnerqui]

Bueno, posteo para insistir en mi método de capturar el mousedown en la zona no cliente(WM_NCLBUTTONDOWN), y no hacer nada en el caso de que esté sobre el caption:

Código Delphi [-]
  if Message.wParam  <> HTCAPTION   then
      inherited;

creo que esto acompañado de lo propuesto por roman para borrar la opción de mover en el menu:

Código Delphi [-]
  DeleteMenu(GetSystemMenu(Handle, false), SC_MOVE, MF_BYCOMMAND);

impide cualquier movimiento de la forma, independientemente de que tenga botones o no.

Saludos

[roman]

Empezado por yusnerqui

Bueno, posteo para insistir en mi método de capturar el mousedown en la zona no cliente(WM_NCLBUTTONDOWN), y no hacer nada en el caso de que esté sobre el caption

Sí. Parece ser un buen complemento para cuando no hay ningún botón. Nada más observar que con ello se impide cualquier tipo de actividad en la barra de título. Si se desea tener todavía opciones del menú activas, entonces tu método sería demasiado restrictivo.

// Saludos

[yusnerqui]

Lo probaste??

Empezado por Roman

Nada más observar que con ello se impide cualquier tipo de actividad en la barra de título.

No entiendo, en el ejemplo que tengo me permite accionar sobre los botones de maximizar, cerrar etc.

Empezado por Roman

Si se desea tener todavía opciones del menú activas, entonces tu método sería demasiado restrictivo.

Lo dicho, puedo desplegar también el menu sin ningún tipo de problemas.



Edito:
Ampliando un poco más la respuesta puedo decir que al especificar que la acción sea controlada solo sobre el caption, especificando (HTCAPTION), evito que se inhabiliten otras zonas no cliente como el menú sistema (HTSYSMENU), el botón de maximizar (HTMAXBUTTON), el de minimizar (HTMINBUTTON) entre otros.


Saludos.

[roman]

Tienes razón yusnerqui, disculpa. Me quedé pensando en el ejemplo de Marcos del otro hilo.

// Saludos

[yusnerqui]

Empezado por Roman

Tienes razón yusnerqui, disculpa.

No hay nada que disculpar maestro, en todo caso me corresponde agradecerte a ti y al foro por las cosas que me han enseñado.

un abrazo

[dec]

Hola,

Esto parece funcionar estupendamente:

Código Delphi [-]
unit Unit1;
 
 interface
 
 uses
   Windows, Forms, Messages;
 
 type
   TForm1 = class(TForm)
   protected
     procedure WndProc(var Message: TMessage); override;
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 
 procedure TForm1.WndProc(var Message: TMessage);
 begin
   if Message.Msg = WM_SYSCOMMAND then
   begin
     if (Message.WParam and $FFF0) = SC_MOVE then
       Message.Result := 0
     else
       inherited;
   end
   else
     inherited;
 end;
 
 end.