FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; |
#2
|
|||
|
|||
Estas muy cerca, te dejo el modo en que yo lo hago :
Si quieres q mientras se carga no se quede en blanco la 'Splash Screen', ves poniendo Ab.Update's entre los Application.CreateForm Última edición por dec fecha: 07-05-2008 a las 18:10:20. |
#3
|
|||
|
|||
Hola...
Solo una aclaración... no se recomienda usar el método Destroy para destruir un objecto. Es preferible el método Free. Cita:
Saludos... |
#4
|
|||
|
|||
Ya, pero destroy queda mas destructor XDDD
|
#5
|
|||
|
|||
nada ni caso, aunque en este caso nunca sera null, el free es mejor
|
#6
|
|||
|
|||
muchas gracias¡
Última edición por mancurnino fecha: 08-05-2008 a las 00:52:56. |
#7
|
|||
|
|||
................
Última edición por coso fecha: 08-05-2008 a las 00:52:28. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como cambiar valores en la ventana "General" propiedades del sistema | JuanErasmo | API de Windows | 52 | 17-02-2012 17:42:20 |
Al evitar que cierren Windows, me sale la ventana de error "Finalizar Tarea" :( | Wonni | API de Windows | 1 | 20-08-2007 16:02:21 |
Ventana MDI, "Siempre visible" y "Pantalla completa" | ixMike | API de Windows | 7 | 11-04-2007 18:36:55 |
Elegir "No" automaticamente en la ventana de Guardar cambios de Excel | Neftali [Germán.Estévez] | Varios | 4 | 21-06-2006 00:35:06 |
Como quitar el "CS_DROPSHADOW" de una ventana? | xEsk | API de Windows | 2 | 07-02-2006 15:57:34 |
|