Tutorial: Splash Screens

[Deltachaos]

Ich glaube ich habe eine Möglichkeit die einfacher und schneller ist:

So geht's:

* Ein weiteres Formular erstellen. Dieses wird unser Splash Screen werden.
* Den Namen des Formulars z. B. in "SplashScreen" ändern. Dieser wird später noch verwendet.
* Diese Eigenschaften des Formulars ändern: BorderStyle auf bsNone und Position auf poScreenCenter
* Das Formular frei gestalten: Beschriftungen, Grafiken oder andere Komponenten hinzufügen.
* Im Menü: Projekt>>Optionen>>Formulare das Splash-Formular auf die rechte Seite bringen (als verfügbares/available Formular). Das Formular werden wir später nämlich dynamisch laden.
* Den Quelltext des Projekts (Hauptprogramm - nicht eine der Units!!!) anzeigen lassen. Dazu im Menü: Projekt>>Quellcode anschauen. Für Delphi kleiner Version 4: Ansicht>>Projekt-Quelltext.
* Folgenden Code nach der Begin-Anweisung einfügen:

SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
Application.Initialize; //diese Zeile existiert schon! - nicht noch mal rein
SplashScreen.Update;

* Nach der letzten Application.Create() und vor der Application.Run-Anweisung folgendes hinzufügen:

SplashScreen.Hide;
SplashScreen.Release;

* Das war's! Jetzt müsste der Splash Screen solange angezeigt werden, wie das Hauptformular lädt.
Und wenn man ihn für eine bestimmte Zeit anzeigen lassen möchte dann muss man nur in das Hauptforular an erster stelle ein sleep(3000); einfügen