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.