Ver Mensaje Individual
  #1  
Antiguo 07-05-2008
mancurnino mancurnino is offline
Miembro
 
Registrado: feb 2008
Posts: 65
Reputación: 17
mancurnino Va por buen camino
Mostrar una ventana "Inicializando" mientras se crean las Forms

Hola amigos, pues tengo una duda, y es que quiero hacer lo siguiente, tengo una ventana que me mostrará que la aplicacion se esta inicializando, y kiero que me la muestre mientras se van creando las forms, y antes de hacer apliccation.run que esta ventana se cierre y ya se me muestre la ventana principal:

Código:
  Application.Initialize;
  Application.Title := 'Hotel Iowa';
  Application.CreateForm(TModuloDatos, ModuloDatos);
  Application.CreateForm(TV_Principal, V_Principal);
  Application.CreateForm(TV_Inicializar, V_Inicializar);
  V_Inicializar.Visible:= True;
  Application.CreateForm(TV_Base, V_Base);
  Application.CreateForm(TV_Entrar_Al_Sistema, V_Entrar_Al_Sistema);
  Application.CreateForm(TV_Registrarse_Como_Usuario, V_Registrarse_Como_Usuario);
  Application.CreateForm(TV_Cliente, V_Cliente);
  Application.CreateForm(TV_Usuario, V_Usuario);
  Application.CreateForm(TV_Trabajador, V_Trabajador);
  Application.CreateForm(TV_Recepcionista, V_Recepcionista);
  Application.CreateForm(TV_Administrador, V_Administrador);
  Application.CreateForm(TInform_Base, Inform_Base);
  Application.CreateForm(TInform_Reserva, Inform_Reserva);
  Application.CreateForm(TInform_Reserva2, Inform_Reserva2);
  Application.CreateForm(TInform_Servicios, Inform_Servicios);
  V_Inicializar.Visible:= False;
  Application.Run;
Creo la ventana de inicializar y al momento quiero que me la muestre mientras se cargan las demas, pero el caso es que al mostrar esta ventana el resto de apliccation.CreateForm ya no se ejecutan, y quiero que lo haga, hay alguna forma?
Responder Con Cita