Kann Form nicht schließen!

[sonicfire]

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!

[SirThornberry]

das ist klar. Im Create von TForm1 erzeugst du ein TSplashScreen weißt dieses auf die Variable Splashscreen zu, und lässt die Instanz auf welche Splashscreen zeigt mit ".Show" anzeigen. Nach dem dein TForm1 kreirt wurde wird in der Projektdatei eine neue Instanz von TSplashScreen erzeugt und auf die Instanz von SplashScreen zugewiesen.

Und in deinem Imageclick steht vermutlich dann nicht
Close(); sondern
SplashScreen.Close(); womit du ein Close auf das zuletzter erzeugte TSplashScreen ausführst was gar nicht angzeigt wird. Anders kanns ich mir zumindest nicht erklären.

[sonicfire]

Öhm, danke Und das heisst... jetzt... ?

[SirThornberry]

das heißt: du müsstest erstmal sagen ob ich recht habe (ob da wirklich splashscreen.close steht). Und wenn dem so ist solltest du aus der Projektdatei das
Application.CreateForm(TSplashScreen, SplashScreen); raus nehmen, und im Sinne der Objectorientierung aus:
Splashscreen.Close(); ein
Self.Close(); bzw.
Close(); machen.
Außerdem solltest du verstehen warum du diese Änderungen machen solltest.

Aber eben alles nur wenn ich recht hatte mit meiner Vermutung, ansonsten scheint der Fehler wo anders zu liegen.

[mkinzler]

Es gibt 2 Instanzen der SplashForm. wenn du sie dynamisch erzeugst, solltest du die Erzeugung im Hauptprogramm abschalten.

[sonicfire]

*Hust* - ich versteh es immer noch nicht ganz ... vor allem: wenn ich das Splash-Fenster minimiere, erscheint sofort ein neues!

[mkinzler]

Hier erzeugst du Instanz nur 1:
Application.CreateForm(TSplashScreen, SplashScreen); Und hier die 2.:
SplashScreen := TSplashScreen.Create(Form1); Einmal reicht!

[sonicfire]

Achsoo okay, verstehe! Danke! Allerdings ändert das leider rein gar nichts. Nach wie vor dasselbe Ergebnis

[mkinzler]

Wie sieht der Code jetzt aus?

[sonicfire]

Naja, so wie im ersten Beispiel bis auf das mit dem Application.CreateForm SplashScreen usw!