Como fijar una ventana?

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

[roman]

De hecho, esta forma es la primera que mencioné en el otro hilo. El único "problema" es que aun cuando el formulario no se mueve, la opción "Mover" sigue apareciendo en el menú del sistema y fue cuando traté de reemplazar el método por la remoción del comando.

Ahora veo que basta dejar ambos para que funcione todo: quitar el menú con

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

e impedir SC_MOVE en el manejador de WM_SYSCOMMAND.

// Saludos

[dec]

Hola,

Empezado por roman

De hecho, esta forma es la primera que mencioné en el otro hilo. (...)

Vaya. Me ilusioné pensando que serviría estupendamente y no me percaté del problema... ya descrito... lo lamento.

[roman]

Empezado por dec

lo lamento

Pues no lo lamentes ya que fue por tu mensaje que me percaté de que mi error estaba en haber reemplazado un método por otro (SC_MOVE por DeleteMenu) cando lo apropiado era usar ambos a la vez.

// Saludos