...einen Splash Screen anzeigen?

Autor: Thomas Stutz

Kategorie: Oberfläche

{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.


 

printed from
www.swissdelphicenter.ch
developers knowledge base