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, Unit1 in 'Unit1.pas' ,
Unit2 in 'Unit2.pas' ;
{$R *.res}
begin
Application.Initialize;
Logo:= TLogo.Create(nil);
Logo.Update;
Sleep(3000); 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"...
