Como saco una barra de progreso al iniciar una aplicacion que tarda en arrancar?

danytorres · #1 14-08-2003

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....

__cadetill · #2 14-08-2003

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.

Espero te sirva

danytorres · #3 14-08-2003

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....

delphi.com.ar · #4 14-08-2003

¿Estas poniendo en la línea Application.CreateForm(TForm1, Form1); la creación de tu/s formularios?

danytorres · #5 14-08-2003

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...

__cadetill · #6 14-08-2003

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.

Asegurate que Form2 este en available forms (no en autocreate) y que el Main Form sea el Form1

Espero que ahora si

danytorres · #7 14-08-2003

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...

delphi.com.ar · #8 14-08-2003

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!

roman · #9 15-08-2003

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.

Con esto evitarás que pueda ejecutarse una segunda instancia de la aplicación; cuando un usuario de click nuevamente, se activará la instancia anterior.

// Saludos