Ladebalken in Splash

[shmia]

Zitat von Svenkan:

@ shmia: Woher bezieht das Programm denn bei deinem Code die Abläufe?

Angenommen beim Start werden mehrere Datenmodule und Formulare geladen.
Dann muss das SplashForm mit Uses in jede dieser Unit eingebunden werden.
Im Event OnCreate steht dann z.B. Folgendes:

Delphi-Quellcode:

procedure TArtikelDataModule.DataModuleCreate(Sender: TObject);
begin
   TSplashForm.DisplayMessage('Verbinde mit Datenbank...');
   Connection.Connect;
   TSplashForm.DisplayMessage('Lade Artikel...');
   QryArtikel.open;
   TSplashForm.DisplayMessage('Artikel geladen');
end;

Wenn dein Programm wären des Ladens auf einen Fehler trifft, dann sieht man auf dem SplashForm, was die letzte Aktion war; eine gute Hilfe zur Fehlereingrenzung.
Wenn das SplashForm nicht angezeigt wird, dann passiert nix, da in TSplashForm.DisplayMessage überprüft wird, ob das SplashForm überhaupt da ist.