[Delphi 6] Creating a Splash Screen

[smctainsh]

Hello,

After many attempts, I have been unable to create a splash screen for my application! Can someone help me by creating an example splash screen? If you help me and the attempt is successful, I will let you put your name on the splash screen with a copyright (e.g. Splash screen programmed by [yourname]. or similar).

Please help! I really want to add a splash screen!

Thanks in advance! :D

[Schmoove]

Let the mainform load hidden (Form.hide()) and initiate a new instance of a form.

There you have your splashscreen. On close of the splashscreen you just show your mainform again.

It's that simple.

[smctainsh]

I am very confused.

Can you send me an example (code example).

Thanks :)

[phedot]

I'll give it a try when I come back from school... :happy:

[KenLin]

Create your splash form. Create your main form.

In your Main forms FormCreate event, show the splash form:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form_Splash := TForm_Splash.Create();
  Form_Splash.Show;
  //run an initialization query or something here
end;

then close the splash form once the main form has completed loading and is shown.

procedure TForm1.FormShow(Sender: TObject);
begin
  if Assigned(Form_Splash) then
    Form_Splash.Close;
end;

note this method is only useful if your main form takes a few seconds to show up. I run a couple small queries in this time.

there are other methods that involve ttimers and modifying the dpr file.

hope this helps.

[smctainsh]

Didn't work, I tried it but it was unsuccessful!

I got a load of errors when I attempted to run the program. If I send you the source code, would you be able to add the requried code to the application? :cry:

[_kane81]

just google it. anyway here is what you want.

just modify the project pas file. ie. if your project is call BiteMe then then modify the BiteMe.pas file

http://www.delphipages.com/tips/thread.cfm?ID=12

begin
 SplashScreen := TSplashScreen.Create(Application); //These 3 lines
 SplashScreen.Show;                                 //Added Manually
 SplashScreen.Update;                               //to load SplashScreen
 Application.Initialize;
 Application.Title := 'Application Title';
 Application.CreateForm(TForm1, Form1);
 SplashScreen.Hide;                                 //These 2 added
 SplashScreen.Free;                                 //manually to close Splash
 Application.Run;
end.

In Project Options, set SplashScreen Form to be an available form, not Autocreate.

[smctainsh]

Thank you to everyone for your help.

I searched and found something on about.com in the delphi section. It was very easy and similar to the post made by liykh001.

Thank you to everyone. I will list you in the contributions list (if you want to appear in that list, please e-mail me with your name and country - smctainsh@gmail.com)