Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Dejar fijo un form... (https://www.clubdelphi.com/foros/showthread.php?t=71728)

verito_83mdq 06-01-2011 17:49:42

Dejar fijo un form...
 
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 06-01-2011 18:57:33

Cita:

Empezado por verito_83mdq (Mensaje 386798)
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 06-01-2011 20:33:05

Gracias Romann!!! Siempre estas vos para ayudar!

rgstuamigo 11-01-2011 00:20:17

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 11-01-2011 00:30:34

Buen truco. No lo conocía.

// Saludos

marcoszorrilla 11-01-2011 00:33:18

Excelente truco.

Un Saludo.

rgstuamigo 11-01-2011 00:49:06

Pues yo lo descubrí por chiripazo :p al hacer algunas pruebas...:D
Saludos...:)

marcial 01-12-2013 00:13:17

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

Casimiro Noteví 01-12-2013 00:29:11

Cita:

Empezado por marcial (Mensaje 470305)
Si, pero por desgracia D5 no tiene AlCustom en la propiedad Align

¿No? :confused:

ecfisa 01-12-2013 00:47:28

Cita:

Empezado por marcial (Mensaje 470305)
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 :)


La franja horaria es GMT +2. Ahora son las 13:10:51.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi