Splashscreen: Formcreate der Mainform ausführen

[FAlter]

Hi,

ich bevorzuge für SplashScreens folgendes:

Der SplaschScreen wird unter den Projektoptionen deaktiviert, sodass man ihn manuell erstellen muss.

Delphi-Quellcode:

uses
  USplash;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  SplashScreen := TSplashScreen.Create(Application);
  SplashScreen.Show;
  Application.ProcessMessages;

  //Initialisation - währenddessen wird der Splash angezeigt!
  Blablubb := TBlablubb.Create('blubbblubb');
end;

procedure TMainForm.FormActivate(Sender; TObject);
begin
  if Assigned(SplashScreen) then
  begin
    //Hier wird das Hauptfenster schon angezeigt. Alternativ OnShow verwenden.

    //Manchmal mache ich hier noch eine Zeitprüfung
    //damit der SplashScreen auch auf schnellen
    //Systemen nicht nur kurz aufblitzt, sondern
    //lesbar ist.

    //SplashScreen.Hide; //nicht notwendig
    FreeAndNil(SplashScreen);
  end;
end;

Mfg
FAlter