Consejos para ventanas modales ?

[Tecnic2]

Hola a todos,

En mi aplicación MDI necesito que aparezca nada más abrir el programa una ventana modal para introducir usuario y contrasenya, y que hasta que no le hayan dado al botón "Validar" no puedan tocar nada de la aplicación.
Lo que pido es algun consejo sobre cómo llamarla, configurar los bordes,....de ésta ventana de login.

Muchas gracias por adelantado.

[roman]

¿Y qué pasa si le dan al botón cancelar? (porque hay un botón cancelar ¿no?)
Supongo que entonces cerrarás el formulario principal terminando la aplicación. Pero entonces ¿para qué abriste el formulario principal?

La razón de estas preguntas es para comentarte que me parece más adecuado presentar primero que nada la ventana de usuario y contraseña, y sólo si los datos son validados presentar la ventana principal.

Para hacer esto basta que modifiques tu archivo dpr más o menos así:

Código Delphi [-]
begin
  Application.Initialize;

  VentanaLogin := TVentanaLogin.Create(nil);
  if VentanaLogin.ShowModal = mrOk then
  begin
    VentanaLogin.Free;

    Application.CreateForm(TVentanaPrincipal, VentanaPrincipal);
    Application.Run;
  end;
end.

Si el usuario cancela entonces Application.Run no se ejecuta y no se construye la ventana principal terminándose así la aplicación.

// Saludos

pd: ¿El borde? bsDialog

[Tecnic2]

Gracias, me ha funcionado.
Lo que pasa ahora es lo siguiente:
En las propiedades de mi proyecto solo tengo puesto que se habra automáticamente el form de Login. Una vez validado el usuario y contraseña hago lo siguiente:

Self.Release;
Application.CreateForm(TfMain, fMain);
fMain.Show;

Cierro el Login y abro el formulario principal que es MDI. Hasta aqui bien, pero cuando intento abrir después un form MDIChild me da el error "Cannot create form. No MDI forms are currently active."
Para abrir el MDIChild hago lo siguiente:

if fVentas = Nil then
begin
Application.CreateForm(TfVentas, fVentas);
fVentas.Show;
end
else
fVentas.BringToFront;

Gracias por adelantado.

[[maeyanes]]

Estás seguro que la forma principal de tu aplicación tiene la propiedad FormStyle en fsMDIForm?

[Tecnic2]

Si claro.
De todas formas, en las propiedades del proyecto, como solo tengo el Login como form para abrirse automáticamente, en el campo de arriba que pone Main Form tengo puesto el Login.

[[maeyanes]]

No estoy muy seguro, pero ese puede ser tu problema... que la ventana que tu proyecto tiene como Main Form no sea una MDIForm...

Intenta esto:

Código Delphi [-]
if fVentas = Nil then
begin
  Application.CreateForm(TfVentas, fVentas);
  fVentas.Parent := fMain; // Inserta esta línea...
  fVentas.Show
end
else
  fVentas.BringToFront;