ich weiss, dass das nervig ist, aber wozu brauchst du da einen Splashscreen? Lädtst du so viele Daten um deine Anwendung zu initialisieren? dann und nur dann ist ein Splashscreen eigentlich "erwünscht".
mh... aber ich will nicht nur negativ sein. Die Splashscreen-form brauchst du wie oft? genau. 1 mal.
also bind doch die
Unit dieser Form in deine MainForm ein und nimm sie aus der automatischen Erstellung heraus.
Splashscreens sollten Veränderungen anzeigen... also am besten eine public
procedure UpdateStatus(const status: string); in der Splashscreen-Form erzeugen.
Was dann? Gut... im On-Create deiner Mainform erzeugst du nun also den Splashscreen:
Delphi-Quellcode:
procedure TForm.oncreate; // oder so -.-
var
Splash: TSplashForm;
Wait: Cardinal;
begin
Splash := TSplashForm.Create(Self);
Splash.Show;
Jetzt wird der Screen angezeigt. Nun willst du die Statusveränderung ja sichtbar machen:
Delphi-Quellcode:
MachWas;
Splash.updatestatus('Hab was gemacht!');
Jetzt wissen wir also, was beim Start so abgeht
was fehlt noch? Kurze Pause und weg mit dem Splash
Delphi-Quellcode:
wait := GetTickCount + 200;
repeat Application.ProcessMessages until GetTickCount >= wait;
Splash.Free;
end;
Dazu solltest du in deinen Programmoptionen den Splash-Screen abschaltbar machen.
Greetz