Dazu müsste irgend ein Codestück den globalen Überblick haben wie vielen Einheiten der gesamte Ladevorgang hat und wie viele Einheiten schon geladen wurden.
Jede Änderung am Programm würde hier wieder Nacharbeit nach sich ziehen.
Deutlich einfacher wäre dem Benutzer auf einem Label anzuzeigen, was gerade passiert.
z.B. "Lade globale Optionen", "Lade Artikel..."
Delphi-Quellcode:
class procedure TSplashForm.DisplayMessage(const s: string);
begin
if Assigned(SplashForm) then
begin
SplashForm.LabelInfo.Caption := s;
SplashForm.Update;
end;
LogObj.WriteLogFile('SplashForm: '+s);
end;