Form2.Show in TForm1.FormCreate

[Brakeman]

Hallo,
ich möchte direkt beim Start meines Programmes die Form2 (befindet sich in Unit2) erscheinen lassen. Leider funktioniert das nicht, es kommt eine Zugriffsverletzung:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form2.ShowModal;
end;

Mache ich das ganze über einen eigenen Button.Click dann funktioniert es.

Was mache ich denn da falsch?

Danke!

[DeddyH]

In der *.dpr wird Form2 erst nach Form1 erzeugt, daher hast Du noch gar keine Instanz, die Du anzeigen könntest. Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm2.Create(Application);
  try
    Form2.ShowModal;
  finally
    Form2.Release;
  end;
end;

[OldGrumpy]

Zitat von DeddyH:

In der *.dpr wird Form2 erst nach Form1 erzeugt, daher hast Du noch gar keine Instanz, die Du anzeigen könntest. Versuch es mal so:[...]

Dann *MUSS* aber die entsprechende Zeile aus dem *.dpr raus, sonst hat man zwei Instanzen von Form2 im Speicher liegen. Das kann neben Speicherlecks auch noch zu seltsamen Effekten führen, wenn z.B. das Form Hooks anlegt oder Messages registriert.

[DeddyH]

Stimmt, das vergaß ich zu erwähnen. Kann man ja in den Projektoptionen einstellen.

[edit] Ein "p" vergessen [/edit]

[OldGrumpy]

Seitdem ich letztens mal "auf wundersame Art und Weise" im dpr zweimal die Create-Zeile für ein und dasselbe Form drin hatte und eine Dreiviertelstunde alles mögliche debugged habe, warum meine Events nicht mehr tun, kontrolliere ich das lieber nochmals selber

[Brakeman]

So habe ich es eingebaut und die Zeile in der Projektdatei entfernt. Funktioniert super!

Danke!