here is a small example to do a splash screen
At first time create add a second form to your project
give it the name at the form : Splash
save it with the name : splScreen.pas
in your project.lpr add the follow line
program project;
{$MODE Delphi}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
//cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ add your units here } splScreen;
begin
Application.Title:='name of your project';
Application.Initialize;
Splash:=Tsplash.create(application);
Splash.show;
Splash.Update;
application.ProcessMessages; // to be sure to show the splash
// the other unit of your project
// remove the line Application.CreateForm(Tsplash, Splash);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Splash.close;
Splash.Release;
Application.Run;
end.
finally if the loading is fast your can add a sleep(1000) in the Tsplash.create
is it that can help you ?