Bei manchen Anwendungen kann das öffnen einer Anwendung eine gewisse Zeit in Anspruch nehmen. Zum Beispiel müssen Fenster erstellt werden, Datenbanken geöffnet werden, Konfigurationsdateien gelesen werden und und und. Ein SplashScreen ist dafür gut geeignet um die Zeit zu überbrücken.
Was man braucht ist ein weiteres Fenster welches das SplashScreen enthält. Am besten noch folgende Eigenschaften für dieses SplashScreen-Form festlegen:
Delphi-Quelltext
1: 2:
| BorderStyle := bsNone; Position := poScreenCenter; |
Gib dem Form einen vernüftigen Namen. Zum Beispiel: SplashScreenForm. Unter Projektoptionen sollte dieses Form so eingestellt werden das dieses nicht automatisch erstellt wird.
Die Projektdatei (*.dpr) der Anwendung sollte nun folgt geändert werden:
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36:
| program Project1; uses Forms, Windows, Unit1 in 'Unit1.pas' , Unit2 in 'Unit2.pas' , Unit3 in 'Unit3.pas' , Unit4 in 'Unit4.pas' , Unit5 in 'Unit5.pas' ;
{$R *.RES}
Begin SplashScreenForm := tSplashScreenForm.Create (Application);
Try SplashScreenForm.Show; SplashScreenForm.Update;
Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm3, Form3); Application.CreateForm(TForm4, Form4);
SplashScreenForm.Hide; Finally SplashScreenForm.Free; End;
Application.Run; End. |