Hola otra vez
Se que este tema es repetitivo pero tengo claro como crear un SplashScreen. Lo que no se, es como hacer que muestre mensajes mientras carga el formulario principal.
Por ejemplo: Conectando, descargando, cargado datos, limpiando, etc... y luego finalmente presente el formulario principal.
Imagino que ha de usarse hilos de ejecución pero no se una forma sencilla de implementarlo.
Gracias
Creo que ya lo logre... Ojalas aporten con correcciones
En el DPR
Código Delphi
[-]
Application.Initialize;
Splash:= TForm2.Create(nil);
Splash.FormStyle := fsStayOnTop;
Splash.Show;
Splash.Update;
Try
Application.ProcessMessages;
Application.Title:= 'Club Delphi';
Application.CreateForm(TForm1, Form1);
Finally
If Assigned(Form2) Then Splash.Release;
End;
Application.Run;
En el formulario principal:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Splash.Label1.Caption:= 'Cargando Proceso 1';
Splash.Update;
PROCESO...
Splash.Label1.Caption:= 'Cargando Proceso 2';
Splash.Update;
PROCESO...
Splash.Label1.Caption:= 'Cargando Proceso 3';
Splash.Update;
PROCESO...
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Splash.Close;
Splash.Release;
Splash:= nil;
end;