Mainform erst anzeigen nachdem andere Form geschlossen wurde

[Beckman]

du meinst ein splashscreen, hoffe ich.
ich hab da mal gebastelt. ich habs so geloest:

Delphi-Quellcode:

begin
  SplashForm := TSplashForm.Create(Application);
  try
    SplashForm.Show;
    Application.Initialize;
    SplashForm.Update;
    //Sleep(1000); //delay-command

    while SplashForm.ProgressBar1.Position < 100 do begin
      SplashForm.ProgressBar1.StepIt;

      if (SplashForm.ProgressBar1.Position = 10) then begin
        end;
      if (SplashForm.ProgressBar1.Position = 20) then begin
        end;
      //usw usw mit den positions um sone art loading balken zu simulieren.
      //hab da einfach aufgaben beim start aufgeteilt (war bisschen aufwendigeres zeugs..

      Sleep(20); //damits wirklich auch aufwendiger ausschaut ^^
      Application.ProcessMessages;
      end;

  if paramstr(1) = '/h' then application.ShowMainForm := False;

  Application.CreateForm(TMainForm, MainForm);
  SplashForm.Hide;
  finally
   SplashForm.Free;
  end;
  Application.Run;