Problemas con formularios MDI, AYUDAAA!!!

[jachguate]

Acabo de hacer una prueba, y he descubierto que Delphi se basa en el estilo del form principal para crear los formularios MDIChild. Si el form principal (Application.MainForm) no es MDIForm, no hay forma de crear MDIChild.

// de la unit Forms.pas

procedure TCustomForm.CreateWindowHandle(const Params: TCreateParams);
var
  CreateStruct: TMDICreateStruct;
begin
  if (FormStyle = fsMDIChild) and not (csDesigning in ComponentState) then
  begin
    if (Application.MainForm = nil) or
      (Application.MainForm.ClientHandle = 0) then
      raise EInvalidOperation.Create(SNoMDIForm);
       !!! no se puede crear si el MainForm no es MDIForm... 
        (solo para estos se crea un client handle)

Resulta que la propiedad MainForm es de solo lectura... por lo que tampoco es posible reasignarla en tiempo de ejecución.

De esta cuenta, que el form principal de tu aplicación debe ser la ventana MDIForm. Si queres validar el acceso al sistema, podes hacer una ventana normal, crearla y llamarla (con showModal) en el onShow del form principal (por ejemplo) y actuar dependiendo del resultado (mrOK=>el usuario es válido, otro valor, cerrar aplicación).

Hasta luego.