Du solltest die ProgressBar nicht einfach hochzählen lassen - es sei denn, du weißt im Voraus, wie lange das Programm zum Starten braucht
- sondern nach jeden Anweisung im Projekt-Quelltext erhöhen.
Also: Ändere die Eigenschaft Max der ProgessBar auf z.B. 4, und füge dann folgende Zeilen immer zwischen einer eigentlichen Befehlszeile ein:
Delphi-Quellcode:
Application.Initialize;
splashForm := TSplashForm.Create(nil);
SplashForm.ShowOnTop;
Application.ProcessMessages;
SplashForm.Update;
Application.CreateForm(TArtikelstammdatenForm, ArtikelstammdatenForm);
SplashForm.ProgressBar1.StepIt;
Applicatoin.ProcessMessages;
Application.CreateForm(Tartikelbearbeitenform, artikelbearbeitenform);
SplashForm.ProgressBar1.StepIt;
Applicatoin.ProcessMessages;
SplashForm.Hide;
SplashForm.Free;
Application.Run;
Wenn du es genauer haben willst, musst du eben die beiden Create-Methoden auseinander nehmen, und zum Beispiel in FormCreates auf die ProgressBar zugreifen.