Zweite Form bei Start öffnen

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

[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