Dejar fijo un form...

[verito_83mdq]

Buenas, como andan? Mi duda es la siguiente tengo un form al cual le saque los botones de minimizar,maximizar, cerrar en fin todos.
Lo que yo quiero es que la ventana o form se cree maximizada completamente y que esta no se pueda arrastrar. El form es un bloqueo se sesión el cual el usuario ingresa pass y desbloquea. Lo que hice fue poner form.enable:=false pero haciendo esto no puedo ingresar el pass. Se entiende? Desde ya muchas gracias! Saludos..

[roman]

Empezado por verito_83mdq

Lo que yo quiero es que la ventana o form se cree maximizada completamente y que esta no se pueda arrastrar.

Pon su propiedad WindowState en wsMaximized.

// Saludos

[verito_83mdq]

Gracias Romann!!! Siempre estas vos para ayudar!

[rgstuamigo]

Bueno... aunque parece ser que ya has solucionado tu problema, pues voy a agregar la siguiente solucion para que tu formulario no se pueda mover:
Para evitar que el usuario mueva el formulario(No pueda mover para ningun lado), simplemente colocas la propiedad Align = alCustom del formulario y eso es todo.
Saludos...

[roman]

Buen truco. No lo conocía.

// Saludos

[marcoszorrilla]

Excelente truco.

Un Saludo.

[rgstuamigo]

Pues yo lo descubrí por chiripazo al hacer algunas pruebas...
Saludos...

[marcial]

Si, pero por desgracia D5 no tiene AlCustom en la propiedad Align

[Casimiro Notevi]

Empezado por marcial

Si, pero por desgracia D5 no tiene AlCustom en la propiedad Align

¿No?

[ecfisa]

Empezado por marcial

Si, pero por desgracia D5 no tiene AlCustom en la propiedad Align

Hola marcial.

En ese caso podes capturar el mensaje WM_SYSCOMMAND.

Código Delphi [-]
...
type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  public
  end;

...
implementation

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

Saludos