Splash Screen

How do I create a splash screen in Delphi 4?
cavalryAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
rwilson032697Connect With a Mentor Commented:
Create a form with no borders (borderstyle = bsNone) or title bar.

In your project (.DPR file) do this:

Var
  TheSplash : TMySplashForm;

Application.Initialise;

TheSplash := TMySplashForm.Create(Application) do
TheSplash.Show;
TheSplash.Update;

// Do all your other form creating etc here

TheSplash.Close;
TheSplash.Free;

Application.Run;

Cheers,

Raymond.
0
 
cavalryAuthor Commented:
Thanks Ray, that works, but how do I create say a 2 second delay before the logo disappears, at the moment it shows and disappears in an instant.
0
 
viktornetCommented:
add Windows to your uses clause and do this.,,

sleep(5000); //5 seconds...

Cheers,
Viktor
0
 
rwilson032697Commented:
That'll do it!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.