...einen SplashScreen anzeigen?

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

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:

markieren

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:

markieren

Delphi-Quelltext

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' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {SplashScreenForm};

{$R *.RES}

Begin
  // SplashScreen Fenster erstellen
  SplashScreenForm := tSplashScreenForm.Create (Application);

  Try
    // SplashScreen Fenster anzeigen
    SplashScreenForm.Show;
    SplashScreenForm.Update;

    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Application.CreateForm(TForm3, Form3);
    Application.CreateForm(TForm4, Form4);

    // SplashScreen Fenster ausbelenden
    SplashScreenForm.Hide;
  Finally
    // SplashScreen Fenster freigeben
    SplashScreenForm.Free;
  End;

  Application.Run;
End.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme