Consejos para ventanas modales ?

[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;

[roman]

De la ayuda de Delphi:

Note: by default, the form created by the first call to CreateForm in a project becomes the application’s main form

Dado que estás usando CreateForm para crear la ventana del login (cosa que sé porque mencionas que la tienes puesta para abrir en automático) entonces es esta ventana la que queda como principal. Aun cuando fMain sí tiene el estilo fsMDIForm, supongo que la VCL requiere que la ventana MDI sea la principal.

Por ello cíñete al código que te puse desde el principio para crear la ventana del login.

Por otra parte, da la impresión de que estás creando el formulario principal desde la ventana del login lo cual es un error de diseño.

Con estos cambios, verás que, además, no es necesario llamar a fMain.Show ya que el formulario principal siempre es visible por defecto.

Igualmente no necesitas fVentas.Show ya que los formularios MDI hijos siempre son visibles.

// Saludos

[Tecnic2]

Me ciño a lo que pusiste desde el principio, pero me dice:
Error: "Undeclared indentifier: 'mrOk'

Y de aqui no salgo.

Ayuda?

[Tecnic2]

Lo siento, me faltava añadir el unit Controls.
Bien, ahora lo único que me falta es saber cómo debo cerrar el Login una vez validado el usuario y contraseña.

Lo que tengo hecho hasta ahora es:
- En las propiedades del proyecto tengo puesto solamente que se inicie el fMain.
- Despues de Application.Initialize tengo lo siguiente:
fLogin := TfLogin.Create(Nil);
if fLogin.ShowModal = mrOk then
begin
fLogin.Free;
Application.CreateForm(TfMain, fMain);
Application.Run;
end;
- Y para cerrar el Login una vez validado tengo ésto otro:
fLogin.Release;
fLogin := Nil;

Lo que ocurre es que al cerrar el Login, la aplicación sigue en marcha, pero sin mostrar ningún formulario principal.

Perdonad mi ignoráncia, soy bastante novato.
Muchas gracias por adelantado.

[roman]

Te preparé un ejemplo completo. Compáralo con tu código para ver dónde está el problema. El ejemplo consta de tres formularios

MainForm - principal MDI
EditorForm - MDI child
LoginForm - Para iniciar sesión

El principal tiene un menú para crear instancias del editor.

// Saludos

[Tecnic2]

Me faltava que los botones del Login tuvieran la propiedad ModalResult rellenada, y lo que eso comporta.

Muchisimas gracias por la paciencia.

Hasta otra.