Form Estatico

[karlaoax]

Hola a todos, tengo una duda. ¿Existira una propiedad que permita que mi form no se mueva de lugar al momento de querer arrastrarla con la barra de titulo de Windows?

Cuando el usuario la trate de mover, simplemente no pueda.

Gracias, Karla

[Neftali [Germán.Estévez]]

Propiedad directamente no, puedes capturar los mensajes.

En la parte privada del formulario define:

Código Delphi [-]
 //: Definimos el prcedimiento para capturar el mensaje
procedure _InternalNoMove(var Message: TWMChar); message WM_SYSCOMMAND;

Y en la implementación esto:

Código Delphi [-]
//: Definimos el prcedimiento para capturar el mensaje
procedure TForm1._InternalNoMove (var Message: TWMChar);
begin
 // Mensajes que interceptamos...
 if (Message.Charcode = SC_MOVE or HTCAPTION) or
 (Message.Charcode = SC_MOVE) then begin
  // No hacemos nada || Nothing to do
 end
 else begin
 // Se deben procesar el resto de mensajes || Process messages normally
 inherited;
 end;
end;

[karlaoax]

Gracias Neftali, al rato checo el codigo, estoy con mucho trabajo y si tengo dudas, posteo de nuevo. Karla

[roman]

Aquí hay otra forma:

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

que puede ponerse en el OnCreate del formulario.

Por cierto, Neftalí, ¿alguna razón para haber usado TWMChar en lugar de TWMSysCommand?

// Saludos

[karlaoax]

Listo ya cheque el codigo y ambos funcionan perfectamente.

Gracias Neftali y Roman por su tiempo.
Karla

[Neftali [Germán.Estévez]]

Empezado por roman

¿alguna razón para haber usado TWMChar en lugar de TWMSysCommand?

Pues no; Y no tiene mucho sentido...
El código es de un proyecto antiguo donde estuve haciendo pruebas con diferentes estilos de los formularios y cambiando propiedades.
O en su día cogí el código de algun sitio y estaba tal que así, o estuve haciendo pruebas y en algun Copy/Paste se quedó así la cabecera.