Solved

Splash Screen

Posted on 1998-12-04
4
351 Views
Last Modified: 2010-04-04
How do I create a splash screen in Delphi 4?
0
Comment
Question by:cavalry
  • 2
4 Comments
 
LVL 12

Accepted Solution

by:
rwilson032697 earned 10 total points
ID: 1349335
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
 

Author Comment

by:cavalry
ID: 1349336
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
 
LVL 10

Expert Comment

by:viktornet
ID: 1349337
add Windows to your uses clause and do this.,,

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

Cheers,
Viktor
0
 
LVL 12

Expert Comment

by:rwilson032697
ID: 1349338
That'll do it!
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
JSON on ISAPI REST Server using Delphi 2 206
proper way to parse text with delphi 7 87
Newbie Thread Programming 1 116
Printing problem 2 72
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.

707 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now