Du fragtest doch nach einem Splash-Sreen, nicht wahr? Das, was du da machst, ist kein Splash-Screen. Ein Splash-Screen ist ein Formular mit einem ansprechenden Äußeren, auf dem z.B. zu lesen steht: "Bitte warten ... Ihre Anwendung wird initialisiert ..." oder irgendwas derartiges. Dieses Formular rufst du als erstes in der Projekt-Quelldatei auf. Ich verwende die Splash-Screens meist auch gleichzeitig als Info-Screen, deshalb gebe ich sie nicht frei, nachdem das Programm vollständig initialisiert wurde. Ansonsten kannst du dieses Splash-Formular auch gleich nach dem Durchlauf von OnShow deines Hauptformulars freigeben. Zudem findest du hier, wenn du mal die Forensuche bemühst, zahlreiche Diskussionen zum Thema.
Delphi-Quellcode:
program Project1;
uses
...
begin
FormSplash := TFormSplash.Create(Application);
FormSplash.Show;
FormSplash.Update;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Title := '
Soundso-Anwendung vS.x by PC-Heil';
Application.CreateForm(TFormMain, FormMain);
...
end.
UNIT UnitMain;
...
Procedure TFormMain.FormShow(Sender: TObject);
begin
...
FormSplash.Hide;
// wenn du's noch als Info-Screen benötigst oder:
FormSplash.Free;
// ganz rausschmeißen
end;
...
end.