whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1541)

Database (90)
Files (137)
Forms (107)
Graphic (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Math (76)
Misc (126)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (266)
VCL (242)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

31 Visitors Online


 
...create a Splash Screen?
Autor: Thomas Stutz
[ Print tip ]  

Tip Rating (15):  
     


{1) What is a Splash Screen ?

  The ones you see when an application is loading.
  (You could use splash screens for other purposes)
  These usually display the application's name, author, version, copyright.

2) How do I create a Splash Screen ?
   Add a new form to your project.

3) Change the Name Property of the Form to something like SplashScreen.

4) Change these Properties in the Object Inspector:}

BorderStyle := bsNone
Position := poScreenCenter

{5) Customize your Splash Screen by adding various components: images, labels...

6) Change your Project file (the .dpr file) to something like the code below:
}

{*************************************************************}

{1) Was ist ein Splash Screen ?

Es ist ein Fenster, das vor dem Starten eines Programms gezeigt wird. (Siehe z.B. Word)
Diese Fenster zeigen normalerweise den Applikationsnamen, Autor, Version, Copyright,
Bilder und ein Anwendungs-Icon

2) Wie macht man einen Splash-Screen ?

Füge eine neue Form dem Projekt hinzu.
(Datei, Neues Formular)


3) Ändere die "Name"-Eigenschaft der Form z.B. zu SplashScreen.

4) Ändere folgende Eigenschaften der Form im Objekt Inspektor:}

BorderStyle := bsNone
Position := poScreenCenter


{5) Füge dem Splash-Screen diverse Komponenten hinzu: Bilder, Labels...

6) Die Projekt Datei (die .dpr Datei) sieht schlussendlich etwa so aus:}


{*************************************************************}

program Project1;
uses
  
Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {SplashScreen};

{$R *.RES}

begin
  
SplashScreen := TSplashScreen.Create(Application);
  try
    
SplashScreen.Show;
    Application.Initialize;
    SplashScreen.Update;
    Sleep(1000); // Or a delay command.
    
Application.CreateForm(TForm1, Form1);
    SplashScreen.Hide;
  finally
   
SplashScreen.Free;
  end;
  Application.Run;
end.



 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners