[MAXIUM]

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;