Startfenster mit Timer

[City Light]

Hallo schau dir das doch mal an...

Delphi-Quellcode:

{
Wie kann man einen Splash Screen anzeigen...



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 Icon, das die Anwendung identifiziert.

Wie macht man einen Splash-Screen ?
1. Füge eine neu Form dem Projekt hinzu.
2. Ändere die "Name"-Eigenschaft der Form z.B. zu SplashScreen.
3. Ändere folgende Eigenschaften der Form im Objekt Inspektor:
BorderStyle := bsNone
Position := poScreenCenter
4. Füge dem Splash-Screen diverse Komponenten hinzu: Bilder, Labels...
5. Die Projekt Datei (die .dpr Datei) sollte schlussendlich etwa so aussehen:
}

program Project1;

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

{$R *.RES}

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

(Quelle: [url]www.SwissDelphiCenter.ch[/url])