Formular beim erstellen zerstören

[VizeTE]

Hallo,

ich habe hier ein scheinbar einfaches Problem welches ich jedoch nicht in den Griff bekommen.

Ich erzeuge ein Formular und während ich es erzeugens lade ich Daten aus einer DB. Falls ich aber keine Daten finde möchte ich die ganze Sache abbrechen, d.h. das Formular nicht öffnen.
Also habe ich versucht bei den Ereignissen "FormShow" oder "FormCreate" den Vorgang abzubrechen. Dabei habe ich ModalResult auf ungleich 0 gesetzt und Self.Close aufgerufen und sogar eine Exception ausgelöst. Alles ohne Erfolg. Das Formular wurde jedes mal geladen.

Vielen Dank - Daniel

[Bernhard Geyer]

Das geht nur indem du dir ein eigene Close-Nachricht sendest:

Delphi-Quellcode:

PostMessage(self.Handle, WM_CLOSE, 0, 0)

Mit deinen Versuchen bringst Du das Eventhandling durcheinander.

[shmia]

kleiner Zusatz
In jedem OnCreate (sei es Formualar oder Datenmodul) in dem nennenswerte Arbeit verrichtet wird,
sollte man folgendes einbauen:

Delphi-Quellcode:

procedure TForm1.FormCreate(sender.TObject);
begin
   if Application.Terminated then  // <-
      Exit;                        // <-
   // hier Initcode, der eine gewisse Zeit braucht
   ...
end;

So kann sich das Programm viel schneller beenden, falls es schon beim Start "abgewürgt" wurde.

[VizeTE]

Zitat:

Zitat von Bernhard Geyer

Das geht nur indem du dir ein eigene Close-Nachricht sendest:

Delphi-Quellcode:

PostMessage(self.Handle, WM_CLOSE, 0, 0)

Mit deinen Versuchen bringst Du das Eventhandling durcheinander.

Klappt prima. Danke für die schnelle Hilfe.