splash screen con progressbar delphi

[ecfisa]

Hola granodetoro.

Te pongo un ejemplo con los pasos para crear un SplashScreen.

Create un Form que desde ahora lo llamo 'Logo' y ajusta las propiedades:
.BorderStyle = bsNone
.Position = poScreenCenter
.Visible = True (Importantisimo para que se visualice)

Quita el form Logo de Auto-create forms (Project->Options->Forms)

Poné lo que gustes como presentación.

Abrí el proyecto: View->Units->Project1.dpr (o como se llame tu proyecto) y agregá lo que está en negrita:

Código Delphi [-]
program Project1;
uses
  Forms,
  Windows, // Para poder usar Sleep
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Logo};
{$R *.res}
begin
  Application.Initialize;
  Logo:= TLogo.Create(nil); 
  Logo.Update;
  Sleep(3000);  // en este caso se muestra 3 segs
  Application.CreateForm(TForm1, Form1);
  Logo.Free;
  Application.Run;
end.

Un saludo.

Edito: Hola granodetoro, mis disculpas. Ya estoy escribiendo 300 veces "debo leer bién los títulos de los mensajes"...