Hallo,

ich habe nach der Anleitung des Tutorials (aus der DP) einen Splash Screen programmiert. Er wird auch korrekt dargestellt nur nicht geschlossen.
Woran kann das liegen?

Hier alle Fälle wo geschlossen werden soll:

markieren

Delphi-Quellcode:

procedure TForm8.SetInitializationDone(const Value: Boolean);
begin
  FInitializationDone := Value;
  Close;
end;

markieren

Delphi-Quellcode:

procedure TForm8.Timer1Timer(Sender: TObject);
begin
  Form8.Close;
  Timer1.Enabled := false;
end;

zusammenfalten · markieren

Delphi-Quellcode:

begin
  Form8:= TForm8.Create(Application);
  try
    Form8.Show;
    Form8.Refresh;
    Application.Initialize;
    Application.Title := 'Netzwerk Server';
    Application.CreateForm(TForm1, Form1);
  finally
    [b]Form8.InitializationDone := True;[/b]
  end;
    Application.CreateForm(TForm5, Form5);
    Application.CreateForm(TForm6, Form6);
    Application.CreateForm(TForm7, Form7);
    Application.Run;
end.

Egal wie ich es versuche. Die Form bleibt offen...

Gruß
Thomas

Ich habe es nun gelöst!

Ich habe auch Form1 einen weiteren Timer gesetzt. Schafft es aus irgendeinem Grund...

Gruß
Thomas