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);

[Reinhardtinho]

Hi,

Wenn keine vorherige Prüfung stattfinden soll, wie Luckie das vorgeschlagen hat, würde ich mit PostMessage arbeiten.


MFG
Lorenz


[Edit]Bernhard Geyer war schneller ... :stupid: ... kein roter Kasten im Firefox?[/Edit]

[hitzi]

Zitat:

Zitat von Luckie

Die Vorschläge werden ja immer schlimmer.

Hehe ... warum dass denn schon wieder? Ich würde es ja verstehen, wenn du bei der Verwendung von "Halt" rummeckerst, aber so?!

[mleyen]

Warum nicht folgendes:

Delphi-Quellcode:

initialization

Application.ShowMainForm := IfIniExitsShowTheForm;

?
Oder direkt im Projektcode das nötige FileExist einbauen

Edit: Arg ich häng grad voll daneben sry^^, das würde ja nur ein hide zur Folge haben...

Hier:

Delphi-Quellcode:

...
uses
  SysUtils,
...

if FileExists(pfad + 'admincfg.ini') then 
Application.CreateForm(TForm1, Form1);
...

[JSB]

ich habs erstmal im Projektquelltext gemacht...
Nachteil ist das ich (eigentlich) unnötigerweise die Units IniFiles, SysUtils und Dialogs hinzufügen musste

Die weiteren Vorschläge werde ich testen um eine Optimale Lösung für mich finden.
Danke an alle. :thumb:

[Luckie]

Zitat:

Zitat von JSB

ich habs erstmal im Projektquelltext gemacht...
Nachteil ist das ich (eigentlich) unnötigerweise die Units IniFiles, SysUtils und Dialogs hinzufügen musste

Wieso? Es reicht doch zu prüfen, ob sie da ist. Auslesen kannst du sie doch in Konstruktor des Formulares.

[JSB]

ja...
schon...

hab's aber dann an 2 verschiedenen Stellen...

[Fussball-Robby]

Zitat:

Zitat von spawn89

Delphi-Quellcode:

...
uses
  SysUtils,
...

if FileExists(pfad + 'admincfg.ini') then 
Application.CreateForm(TForm1, Form1);
...

Das ist doch nur eine Zeile. Und den Rest lässt du einfach so im OnCreate, ohne das FileExists natürlich :wink:

[JSB]

und die Fehlermeldung ?

Delphi-Quellcode:

uses
  ... SysUtils, Dialogs,

...


else
    Messagedlg('Fehler! Konfigurationsdatei "admincfg.ini" nicht gefunden!', mtError, [mbOK], 0);

wenn ich nur den Pfad prüfe und die Ini im Show/Create auslese spar ich mir nur die IniFiles im Projekt.

...ist aber weiterhin nicht schlimm.
Beide Lösungen sind ok