Ver Mensaje Individual
  #10  
Antiguo 21-02-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 28
jachguate Va por buen camino
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.

Código:
// 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.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita