Fenster nach Programmstart öffnen?

[MCXSC]

Hallo,


Hab ein kleines Problem:

Wie kann ich ein zweites Formular im OnCreate-Ereignis des Hauptformular öffnen? Bei mir kommt da immer eine Fehlermeldung.

Folgenden Code verwende ich:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
form2.showmodal;
end;

Und folgende Fehlermeldung erscheint immer:

Zitat:

Im Project projektname.exe ist eine Execption der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 00AAD103 in Modul 'projektname.exe' [...]

Kann mir jemand helfen?

MCXSC

[Luckie]

Bitte erstell für jede Frage einen sepaaraten Thread, sonst geht hier alles durcheinander. Danke.

[Matze]

Und zusätzlich solltest du immer Quellcode angeben, den du schon hast, die Fehlermeldung sowieso und auch die Zeile, in der ein Fehler auftritt etc. Damit verhinderst du unnötiges Nachfragen.

[Sharky]

Zitat:

Zitat von MCXSC

... Wie kann ich ein zweites Formular im OnCreate-Ereignis des Hauptformular öffnen? Bei mir kommt da immer eine Fehlermeldung.

Hai MCXSC,

das Fehler kommt weil zu dem Zeitpunkt wo Du Form2.ShowModal aufrufst dein Instanz von TForm2 noch nicht erzeugt wurde.
In deiner Projekt.dpr werden die Forms der reihe nach erzeugt. Da Du aber auf das .OnCreate der TForm1 reagierst ist deine Instanz von TForm2 natürlich noch nicht erzeugt

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1); // Form1 wird erzeugt und das OnCreate von Form1 wird aufgerufen.
  Application.CreateForm(TForm2, Form2); // Erst DANACH wird Form2 erzeugt.
  Application.Run;
end.

Am einfachsten kannst Du das umgehen in dem Du deinen Code nicht in das OnCreate schreibst sondern in das OnActivate der Form

Delphi-Quellcode:

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

[DevilsCamp]

oder Du nimmst Form2 aus der Liste der automatisch erzeugten Forms und nutzt folgenden Code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
form2.showmodal;
Form2.Free;
end;

[MCXSC]

Ich muss, auch wenn es schon lange her ist, nochmal was zum gleichen Thema (deswegen kein neuer Thread, da es eigentlich die gleiche Frage ist, nachfragen:

Wie ist es denn möglich, einen MessageDlg im OnCreate Ereignis von Form1 zu öffnen? Da bekomme ich nämlich ebenso eine Fehlermeldung...

[Luckie]

Da könnte dir die VCL einen Streich spielen. Wie ist es denn mit einer MessageBox?