Hi. Habe mich wegen eines SplashScreen an foldenden Post hier im Forum gehalten.
SplashScreen Tutorial
Funktioniert auch soweit ganz gut, nur sieht man meine Anwendung schon, wenn ich den SplashScreen sehe.
Ich will es so haben:
Ich starte die Anwendung und sehe meinen Splashscreen ca. 3 Sekunden. Wärenddessen wird im Hintergrund meine TFrmApplication vollständig geladen und dann erst angezeigt.
Hier mein Code bis jetzt:
Delphi-Quellcode:
begin
frmSplash := TfrmSplash.Create(Application);
try
frmSplash.InitializationDone := False;
frmSplash.Show;
frmSplash.Refresh;
Application.Initialize;
Application.CreateForm(TFrmApplication, FrmApplication);
// (1)
// weitere Formulare und Datenmodule hier her verschieben (siehe 2)
finally
frmSplash.InitializationDone := True;
end;
// (2)
// Standardmäßig erstellte Formulare wird Delphi hier eintragen
// nach (1) verschieben !!!
Application.Run;
end.
Danke schon mal