FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como saco una barra de progreso al iniciar una aplicacion que tarda en arrancar?
Hola a todos los del foro. Tengo una aplicacion que tarda en arrancar y el usuario cuando le da click al icono de la aplicación no sale al instante le Vuelve a dar otro click, como hago para sacar una ventana con una barra de progreso que indique cuanto va a tardar en abrir. Nota lo que mas tarda en arrancar es el Datamodule. Quien pudiera ayudarme le doy gracias de antemano.
_______________________ Un saludo.... |
#2
|
|||
|
|||
En el dpr de tu aplicacion pon algo asi....
Código:
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; USpalsh in 'USpalsh.pas' {FSpalsh}; ..... // lista de formularios y DataModules {$R *.res} begin Application.Initialize; Application.CreateForm(FSpalsh, Spalsh); Spalsh.Show; Splash.Update; Application.CreateForm(TForm1, Form1); ..... // creas los forms y datamodules que quieras Spalsh.Free; Application.Run; end. |
#3
|
|||
|
|||
Gracias por responder cadetill. Crea un formulario talcual me dices en tu codigo, pero cuando arranco la aplicacion me muestra el formulario pero cuando se libera el mismo cierra la aplicacion y no hace mas nada no entiendo.
__________________ Un saludo a todos.... |
#4
|
||||
|
||||
¿Estas poniendo en la línea Application.CreateForm(TForm1, Form1); la creación de tu/s formularios?
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
|||
|
|||
delphi.com.ar estoy colocando el codigo tal cual me lo dio cadetill, nose si estoy haciendo algo mal lee agradesco que me ayuden.
____________________ Un saludo a todos... |
#6
|
|||
|
|||
Probado y funcionando
Código:
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.res} begin Application.Initialize; Form2 := TForm2.Create(Application); Form2.Show; Form2.Update; Application.CreateForm(TForm1, Form1); Form2.Free; Application.Run; end. Espero que ahora si |
#7
|
|||
|
|||
Gracias cadetill el segundo codigo que me pasaste funciona muy bien gracias, pero una ultima cosa como muestro el tiempo de espera en un ProgressBar.
_________________________ Un saludo a todos... |
#8
|
||||
|
||||
Si lo que vas a hacer es conectarte a la base de datos y/o crear y abrir formularios... no sabrás cuál es el tiempo de espera real, lo que puedes hacer es poner alguna animación cíclica, para que se vea que esta cargando o poner un progressbar que se mueva por cada paso que haga tu aplicación que creas que demore.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#9
|
||||
|
||||
Además de lo que ya te han indicado, si deseas evitar que se ejecute otra instancia de tu aplicación cuando un usuario impaciente de click con splash y todo quizá te sirva incluir la unidad uiapp.pas en tu archivo dpr:
Código:
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, UIApp; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. // Saludos |
#12
|
||||
|
||||
grx :P
gracias Delphius, ya la encontre, asi como otras cosas interesantes... mucho roman!!
salu2 |
|
|
|