Mega Code Archive
Create a Splash Screen
<![CDATA[
Title: create a Splash Screen?
{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.
]]>