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:
Delphi-Quellcode:
procedure TForm8.SetInitializationDone(const Value: Boolean);
begin
FInitializationDone := Value;
Close;
end;
Delphi-Quellcode:
procedure TForm8.Timer1Timer(Sender: TObject);
begin
Form8.Close;
Timer1.Enabled := false;
end;
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