Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 374
  • Last Modified:

Splash Screen

How do I create a splash screen in Delphi 4?
0
cavalry
Asked:
cavalry
  • 2
1 Solution
 
rwilson032697Commented:
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

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now