Servus allerseits!
Ich habe mal versucht eine Art Splashscreen via zweiter Form anzuzeigen.
Die Form zeigt er auch an, alles bestens. Ich kann sie nur zum verrecken nicht schließen!!
Code in Hauptprogramm:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
SplashScreen := TSplashScreen.Create(Form1);
SplashScreen.Show;
Code in Splashscreen-Form (
Unit):
Delphi-Quellcode:
procedure TSplashScreen.Image1Click(Sender: TObject);
begin
Close;
end;
Projekt-Code:
Delphi-Quellcode:
begin
Application.Initialize;
Application.Title := 'Samplematic';
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TSplashScreen, SplashScreen);
Application.Run;
end.
Ich kann machen was ich will, entweder ich bekomme Exceptions oder das verdammte Fenster schließt sich einfach nicht. Man sieht, das es "refreshed" wird, also geschlossen und sofort wieder geöffnet
Hat jemadn Rat? Danke schon mal!