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 16: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 17: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 19:33:05

Gracias Romann!!! Siempre estas vos para ayudar!

rgstuamigo 10-01-2011 23: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 10-01-2011 23:30:34

Buen truco. No lo conocía.

// Saludos

marcoszorrilla 10-01-2011 23:33:18

Excelente truco.

Un Saludo.

rgstuamigo 10-01-2011 23:49:06

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

marcial 30-11-2013 23:13:17

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

Casimiro Notevi 30-11-2013 23:29:11

Cita:

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

¿No? :confused:

ecfisa 30-11-2013 23: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 17:32:18.

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