Zweite Form bei Start öffnen

[egon89]

Hallo,

ich möchte beim Start meines Programmes checken, ob eine Registrierung vorhanden ist.
Sollte diese nicht vorhanden sein, soll sich die TForm öffnen, in dem man den Registriercode eingeben kann.

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  WindowState := wsMaximized;
  strStartVerzeichnis := GetCurrentDir; //übergibt das Startverzeichnis;

  if NOT (FileExists('C:\Reg.file')) then
  begin
    FormRegistrierung.Show;
  end;
end;

Ich bekomme beim Start aber immer die Meldung "Zugriffsverletzung bei Adresse..."

Wenn das Programm einmal gestartet ist, dann kann ich ohne Weiteres auf FormRegistrierung.Show; zugreifen, also öffnet sich ohne Probleme.

Warum geht das beim Start-Up des Programms nicht bzw. warum kann ich keine zweite Form beim Start öffnen?

Vielen Dank
Gregor

[blawen]

Dies hängt mit der Erstellungsfolge der Formulare zusammen.

In Deinem Fall würde ich die Procedure vermutlich im OnShow-Ereignis von Form1 ausführen oder als zweite Variante startest Du zuerst das (unsichtbare) Formular FormRegistrierung, welches im Erfolgsfall Form1 aufruft. Vom Ablauf her denke ich da an einen typischen SplashScreen.

[DeddyH]

Die Formulare werden nacheinander erzeugt, d.h. Du kannst im OnCreate kein anderes (automatisch erzeugtes) Formular anzeigen, wenn dieses in der Erzeugungsreihenfolge danach kommt. Eine Lösung wäre, die Erstellungsreihenfolge der Formulare zu ändern, eine andere, das zweite Formular überhaupt nicht automatisch erzeugen zu lassen, sondern dies bei Bedarf selbst zu tun.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  frm: TFormRegistrierung;
begin
  WindowState := wsMaximized;
  strStartVerzeichnis := GetCurrentDir; //übergibt das Startverzeichnis;

  if NOT (FileExists('C:\Reg.file')) then
  begin
    frm := TFormRegistrierung.Create(nil);
    try
      frm.ShowModal;
    finally
      frm.Free;
    end;
  end;
end;

[zeras]

FormRegistrierung.Show; Hast du sichergestellt, dass FormRegistrierung.Create schon vor deinem Aufruf aufgerufen wurde?

[egon89]

Nein, das erste, was ja passiert ist, dass FormCreate der Hauptform aufgerufen wird, daher wurde die andere Form noch nie aufgerufen.

Wie müsste das denn gemacht werden?

[blawen]

Zitat von egon89:

Nein, das erste, was ja passiert ist, dass FormCreate der Hauptform aufgerufen wird, daher wurde die andere Form noch nie aufgerufen.

Wie müsste das denn gemacht werden?

z.B. wie in Posting #3.

[egon89]

Das funktioniert und macht genau das, was es soll - vielen Dank

Zitat von DeddyH:

Die Formulare werden nacheinander erzeugt, d.h. Du kannst im OnCreate kein anderes (automatisch erzeugtes) Formular anzeigen, wenn dieses in der Erzeugungsreihenfolge danach kommt. Eine Lösung wäre, die Erstellungsreihenfolge der Formulare zu ändern, eine andere, das zweite Formular überhaupt nicht automatisch erzeugen zu lassen, sondern dies bei Bedarf selbst zu tun.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  frm: TFormRegistrierung;
begin
  WindowState := wsMaximized;
  strStartVerzeichnis := GetCurrentDir; //übergibt das Startverzeichnis;

  if NOT (FileExists('C:\Reg.file')) then
  begin
    frm := TFormRegistrierung.Create(nil);
    try
      frm.ShowModal;
    finally
      frm.Free;
    end;
  end;
end;

Offensichtlich habe ich einfach das mit den Reihenfolgen nicht kapiert. Ich dachte, es wird alles bereits vorher initiiert und dann das eigentlich Create ausgeführt.

Vielen Dank für die Klärung

[egon89]

Vielen Dank - sorry, schneller geantwortet als gelesen

Zitat von blawen:

Zitat von egon89:

Nein, das erste, was ja passiert ist, dass FormCreate der Hauptform aufgerufen wird, daher wurde die andere Form noch nie aufgerufen.

Wie müsste das denn gemacht werden?

z.B. wie in Posting #3.

[himitsu]

Zitat von blawen:

Dies hängt mit der Erstellungsfolge der Formulare zusammen.

Die erste automatisch erstellte Form ist/bleibt dennoch die MainForm.

Abgesehn davon ist es eh eine Unsitte selten genutzte Forms dauerhaft "nutzlos" erstellen zu lassen.
Die Beispiele, wo eine Form nur dann und so lange erstellt wird, wie sie benutzt wird, sind somit eine gute Lösung.

Zitat:

Ich bekomme beim Start aber immer die Meldung "Zugriffsverletzung bei Adresse..."

Du weißt, was ein Debugger ist und wie man ihn benutzt?
Wenn nicht, dann lernen.

Dann hättest du selbst bemerken können, dass die Variable FormRegistrierung NIL ist
und dass diese Codestelle ausgeführt wird, bevor in der DPR der Erstellungscode für diese Form durchlief.

[Kas Ob.]

[delete] mistake.