ProgressBar auf splashform

[Yogu]

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.