Programm schließen im FormCreate

[JSB]

Hallo,


ich habe die interessante Erfahrung machen müssen, dass ich beim OnCreate eines Formulars, das Formular nicht schließen kann. Der Code wird einfach ignoriert...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var cfg : TIniFile;
begin

    //Datenbank-Konfiguration laden
    if FileExists(pfad + 'admincfg.ini') then
    begin
      cfg := TIniFile.Create(pfad + 'admincfg.ini');
      AdminDB.Database := cfg.ReadString('DATABASE','PATH','ERROR');
      AdminDB.Username := cfg.ReadString('DATABASE','USER','ERROR');
      AdminDB.Password := cfg.ReadString('DATABASE','PASSWORD','ERROR');
    end
    else
    begin
      MessageDlg('Fehler! Konfigurationsdatei "admingui.ini" nicht gefunden!', mtError, [mbOK], 0);
      Close; //macht der net
    end;

end;

was kann man da machen, bzw. warum funktioniert es eigentlich nicht?

[Luckie]

Überleg mal, was du da versuchst zu tun. Du versuchst in das Auto einzusteigen und gleichzeitig wieder auszusteigen. Warum macvhst du die Überprüfung nicht bevor du das Formular überhaupt erzeugst in der Projektdatei?

[Alien426]

Du hast das Objekt "Form" noch nicht erzeugt (Form.Create) und willst doch schon eine seiner Routinen (Form.Close) ausführen.

[JSB]

danke für den Vorschlag!

Naja... ich dachte es wäre mehr sowas wie

• OnCreate(Autotür aufschließen)
• merken das man den Führerschein zuhause gelassen hat
• die tür also zumachen und nicht einsteigen...
• ;-)

[hitzi]

Wenn du im OnCreate merkst, dass das Programm geschlossen werden muss, dann starte dort doch einen kurzen Timer der dann nichts weiter macht, als das Programm zu schließen.

[michaelg]

Functionieren würde

Delphi-Quellcode:

Application.Terminate;

auch schon im FormCreate.

Ob das guter Stil ist und das Deinen moralischen Ansprüchen genügt, mußt Du selbst wissen. :wink:

[Luckie]

Zitat:

Zitat von hitzi

Wenn du im OnCreate merkst, dass das Programm geschlossen werden muss, dann starte dort doch einen kurzen Timer der dann nichts weiter macht, als das Programm zu schließen.

Warum diese Krücken? Was ist dagegen einzuwenden vorher zu prüfen, ob man das Programm starten und das Formular anzeigen lassen will oder eben nicht?

[hitzi]

Zitat:

Zitat von Luckie

Warum diese Krücken? Was ist dagegen einzuwenden vorher zu prüfen, ob man das Programm starten und das Formular anzeigen lassen will oder eben nicht?

Weil ich zum Beispiel die verwendeten Prüffunktionen nur in der entsprechenden Klasse haben möchte, da sie nur dort gebraucht werden und dann müsste man auch noch im Projektquelltext die Prüfungen einbauen. Würde beides nicht weh tun, aber ich finde es in vielen Fällen so sinnvoller. Um den Timer zu sparen, könnte man auch eine Variable nutzen und die Form später im OnShow schließen. Wenn man allerdings die Form überhaupt nicht braucht (Logging oder ähnliches) und die Form auch nicht aufpoppen soll, dann muss man Luckies Weg nutzen.

[Luckie]

Zitat:

Zitat von michaelg

Functionieren würde

Delphi-Quellcode:

Application.Terminate;

auch schon im FormCreate.

Die Vorschläge werden ja immer schlimmer.

[Bernhard Geyer]

Wir machen es immer so:

Delphi-Quellcode:

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