Fehler bei Form.ShowModal

[Ykcim]

UPS, hatte den einen Beitrag übersehen...
Das Form steht unter Automatisch erzeugen mit drin. Ich vermute, dass etwas in der Unit, von der ich es aufrufen möchte, falsch ist, weil es ja vom HauptForm aus funktioniert...
Ich hatte deshalb meinen "USES-Teil" mit in die Frage geschrieben.

Irgendwo fehlt ein Verweis... Aber der Fehler entsteht nicht beim compilieren, sondern erst zur Laufzeit...

Ich habe keine Idee...

Patrick

[Uwe Raabe]

Aber ist das Form zum Zeitpunkt des fehlschlagenden Aufrufs auch schon erstellt worden?

[Sherlock]

Ist sie erzeugt? Also entweder per vom KodeZwerg geshilderten Automatismus oder durch ein simples Form_DBZugriffsdaten := TForm.Create .

Sherlock

[Ykcim]

Zitat von Uwe Raabe:

Aber ist das Form zum Zeitpunkt des fehlschlagenden Aufrufs auch schon erstellt worden?

Das könnte der Grund sein... Die Prüfung, ob die Datei vorhanden ist oder nicht findet im CREATE von TDatenbankUnit statt. Bis Gerade stand das Form_DBZugriffsdatenUnit ganz unten. Ich habe es jetzt nach oben gesetzt, aber das hat nicht den gewünschten Erfolg gebracht...

Delphi-Quellcode:

program iVisitor;

uses
  Vcl.Forms,
  Form_MainUnit in 'Form_MainUnit.pas' {Form_Main},
  Form_DBZugriffsdatenUnit in 'Form_DBZugriffsdatenUnit.pas' {Form_DBZugriffsdaten},
  TMultiLanguageUnit in 'TMultiLanguageUnit.pas',
  TDatenbankUnit in 'TDatenbankUnit.pas',
  TExcelExportUnit in 'TExcelExportUnit.pas',
  TGridDesignUnit in 'TGridDesignUnit.pas',
  TBitMapUnit in 'TBitMapUnit.pas',
  Form_PasswortUnit in 'Form_PasswortUnit.pas' {Form_Passwort},
  Frame_SQLUnit in 'Frame_SQLUnit.pas' {Frame_SQL: TFrame};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm_Main, Form_Main);
  Application.CreateForm(TForm_Passwort, Form_Passwort);
  Application.CreateForm(TForm_DBZugriffsdaten, Form_DBZugriffsdaten);
  Application.Run;
end.

[Ykcim]

GELÖST!

Delphi-Quellcode:

if not FileExists(ExtractFilePath(Application.ExeName) + 'SQL.set') then begin
      if (Form_DBZugriffsdaten = nil) then
         Form_DBZugriffsdaten:= TForm_DBZugriffsdaten.Create(nil);
      ResultDBZugriff:=Form_DBZugriffsdatenUnit.Form_DBZugriffsdaten.ShowModal;
      if ResultDBZugriff>1 then begin
         Exit;
      end;
   end;

Zitat von Uwe Raabe:

Aber ist das Form zum Zeitpunkt des fehlschlagenden Aufrufs auch schon erstellt worden?

Zitat von Sherlock:

Ist sie erzeugt? Also entweder per vom KodeZwerg geshilderten Automatismus oder durch ein simples Form_DBZugriffsdaten := TForm.Create .

Sherlock

Vielen Dank für die Hilfe - die Kombination war es...

Patrick

[KodeZwerg]

Das verstehe wer will, ich tu es gerade nicht.

Wenn in .dpr es automatisch erzeugt wird aber bei Aufruf nicht vorhanden ist, da stimmt doch was nicht.
Das es forciert funktioniert mag ja schön und gut sein, aber normal ist so ein Verhalten nicht.

[Schokohase]

Zitat von KodeZwerg:

Das verstehe wer will, ich tu es gerade nicht.

Wenn in .dpr es automatisch erzeugt wird aber bei Aufruf nicht vorhanden ist, da stimmt doch was nicht.
Das es forciert funktioniert mag ja schön und gut sein, aber normal ist so ein Verhalten nicht.

Das hat was mit dem Timing zu tun.

Die Form wird in der dpr definitiv erzeugt, allerdings zu spät für den entsprechenden Codeteil. Und nur wenn es erzeugt wurde kann man es verwenden nicht wenn es erzeugt werden würde (wenn da nicht vorher die Exception fliegt)

[KodeZwerg]

Eventuell Offtopic, wer weiß das schon

Zitat von Schokohase:

Zitat von KodeZwerg:

Das verstehe wer will, ich tu es gerade nicht.

Wenn in .dpr es automatisch erzeugt wird aber bei Aufruf nicht vorhanden ist, da stimmt doch was nicht.
Das es forciert funktioniert mag ja schön und gut sein, aber normal ist so ein Verhalten nicht.

Das hat was mit dem Timing zu tun.

Die Form wird in der dpr definitiv erzeugt, allerdings zu spät für den entsprechenden Codeteil. Und nur wenn es erzeugt wurde kann man es verwenden nicht wenn es erzeugt werden würde (wenn da nicht vorher die Exception fliegt)

Ich Danke Ihnen für diese gute Erklärung.
Es war mir schon bewusst aufgrund der Fehlermeldung das dieses Objekt noch nicht existiert.
Nur kann ich es gerade nicht nachvollziehen. Ich führe mal ein paar selbst-Tests durch mit .DPR und langsamen Formularen.
Bis jetzt habe ich so ein Verhalten noch nicht erlebt, dass das Laden lange dauern kann schon.
Das ein Objekt, obwohl man es explizit Created nicht erstellt wird erscheint mir im Moment unlogisch.

Was mir einfällt wäre, wenn ich das Hauptformular Visible=True setze, kann es sein das es da schon angezeigt wird bevor Application.Run einsetzt? Sonst ist es für mich unlogisch.

[Delphi.Narium]

Zitat von Ykcim:

Zitat von Uwe Raabe:

Aber ist das Form zum Zeitpunkt des fehlschlagenden Aufrufs auch schon erstellt worden?

Das könnte der Grund sein... Die Prüfung, ob die Datei vorhanden ist oder nicht findet im CREATE von TDatenbankUnit statt. Bis Gerade stand das Form_DBZugriffsdatenUnit ganz unten. Ich habe es jetzt nach oben gesetzt, aber das hat nicht den gewünschten Erfolg gebracht...

Delphi-Quellcode:

program iVisitor;

uses
  Vcl.Forms,
  Form_MainUnit in 'Form_MainUnit.pas' {Form_Main},
  Form_DBZugriffsdatenUnit in 'Form_DBZugriffsdatenUnit.pas' {Form_DBZugriffsdaten},
  TMultiLanguageUnit in 'TMultiLanguageUnit.pas',
  TDatenbankUnit in 'TDatenbankUnit.pas',
  TExcelExportUnit in 'TExcelExportUnit.pas',
  TGridDesignUnit in 'TGridDesignUnit.pas',
  TBitMapUnit in 'TBitMapUnit.pas',
  Form_PasswortUnit in 'Form_PasswortUnit.pas' {Form_Passwort},
  Frame_SQLUnit in 'Frame_SQLUnit.pas' {Frame_SQL: TFrame};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm_Main, Form_Main);
  Application.CreateForm(TForm_Passwort, Form_Passwort);
  Application.CreateForm(TForm_DBZugriffsdaten, Form_DBZugriffsdaten);
  Application.Run;
end.

Die Reihgenfolge im Uses ist irrelevant.

Wenn, dann muss man die Reihenfolge bei den Application.CreateForm ändern. Dann kann sich aber auch das Hauptformular der Anwendung ändern, was nicht zwingend zielführend ist.

Sinnvoller wäre es meiner Meinung nach, das Formular, das ja nur in bestimmten Fällen, aber nicht immer, benötigt wird, aus dem Erstellautomatismus rauszunehmen und nur bei Bedarf zu erstellen und nach der Nutzung freizugeben.

Also die Zeile Application.CreateForm(TForm_DBZugriffsdaten, Form_DBZugriffsdaten); aus der DPR entfernen und den Aufruf des Formulares anpassen:

Delphi-Quellcode:

if not FileExists(ExtractFilePath(Application.ExeName) + 'SQL.set') then begin
  Form_DBZugriffsdaten := TForm_DBZugriffsdaten.Create(nil);
  ResultDBZugriff := Form_DBZugriffsdatenUnit.Form_DBZugriffsdaten.ShowModal;
  Form_DBZugriffsdaten.Free;
  if ResultDBZugriff > 1 then Exit;
end;

Und wenn man das dann noch in eine eigene Methode, mit 'ner vernünftigen Fehlerbehandlung packt, die sicherstellt, dass auch garantiert eine Freigabe des Formulares erfolgt, dann könnte das was werden.

[Sherlock]

Die Reihenfolge in der dpr ist nicht irrelevant sondern wird genauso aus dem Formulare-Abschnitt der Projektoptionen gesteuert bzw. vorgegeben.

Dennoch ist der Einwand gut, daß man Formulare erst dann erzeugen sollte, wenn man sie braucht, das beschleunigt ja auch den Anwendungsstart.

Eventuell wird das fragliche Formular irgendwann vorher freigegeben?

Sherlock