Splashscreen - Anwendung schließen

[Svenkan]

Hey!
Ich habe eine Passwortabfrage zum Starten des Programms eingebaut, welche ggf. beim Start während des Splash-Screens angezeigt wird.
Wird diese nun per Klick auf 'Abbrechen' verweigert, soll das komplette Programm geschlossen werden.
Ich habs schon mit FreeAndNil, .Close, .Free versucht, aber nichts hat geholfen. Die Hauptform wird aber trotzdem geöffnet.

[Gollum]

Hallo,

evtl. hilft dir Application.Terminate weiter.

[messie]

Oder der Holzhammer:HALT; Grüße, Messie

[Svenkan]

Jep, danke.

[Die Muhkuh]

Wobei man halt nicht verwenden sollte...

[shmia]

Zitat von Gollum:

evtl. hilft dir Application.Terminate weiter.

Das ist die richtige Methode.
Aber die Anwendung läuft trotzdem zunächst mal weiter.
Um nicht unnötig Zeit zu Vertrödeln sollte man in jedes .FormCreate() folgendes einbauen:

Delphi-Quellcode:

procedure TForm5.FormCreate(Sender: TObject);
begin
   if Application.Terminated then Exit;  // <==
   Fxxx := Txxx.Create;
   ....
end;

Natürlich nur, wenn FormCreate schon vorhanden ist, und dort auch etwas gearbeitet wird.

Man kann auch direkt in der Projektdatei eingreifen:

Delphi-Quellcode:

  PasswordForm.ShowModal;
  if Application.Terminated then Exit;  // <==
   
  Application.CreateForm(TForm42, Form42);
  Application.CreateForm(TForm66, Form66);
  ...
  Application.Run;

[Svenkan]

Zitat von Die Muhkuh:

Wobei man halt nicht verwenden sollte...

Weil?

[Dezipaitor]

ist halt nicht die einzige funktion, um einen Rückgabewert an den Aufruferprozess zu setzen?

[Svenkan]

Ja mhm.., aber wo liegt denn der Vorteil von shmia's Methode gegenüber messie's?

[Dezipaitor]

Zitat von Svenkan:

Ja mhm.., aber wo liegt denn der Vorteil von shmia's Methode gegenüber messie's?

Mit Application.Terminate wird die Windows Nachrichtenschleife noch korrekt beendet und vieles QuitNachrichten werden noch vorher gesendet.
Wenn dann alles freigegeben wurde, dann wird aus der Methode TApplication.Run gesprungen und man ist wieder im Hauptprogramm. Danach kann
man natürlich halt(x) aufrufen. Wenn man das nicht macht, wird sozusagen halt(0) aufgerufen.