Tweet
Hallo, ich habe eine Hauptform. Von dieser Hauptform rufe ich eine Form2 auf. Nun möchte aus Form2 ein Form3 aufrufen. Ich bekomme allerhand Fehlermeldungen. Sicher kann man mir erklären, wie so etwas gemacht wird. Vielen Dank für Hinweise. Gruß ph.
-
-
Hallo, hat sich erledigt. Habe mal wieder den Wald vor lauter Bäumen nicht gesehen. ph -
Deine Lösung möchte ich auch kennenlernen,habe nämlich gleiches Problem.DankComment
-
Hallo Form1, Form2, Form3 anlegen. Form1(Hauptformular) jetzt stehen in Projekt Optionen Formulare im Fenster Automatisch erzeugen die drei Formulare. Form2 und Form3 in das Fenster verfügbare Formulare bringen. Dann in die Unit von Form1 den Code eintragen:
<br>procedure TForm1.Button1Click(Sender: TObject);
<br>begin
<br>Form2 := TForm2.Create(Application);
<br>try
<br>Form2.ShowModal;
<br>finally
<br>Form2.Release;
<br>end;
<br>end;
<br>dann in Form2 den Code eintragen:
<br>procedure TForm2.Button1Click(Sender: TObject);
<br>begin
<br>Form3 := TForm3.Create(Application);
<br>try
<br>Form3.ShowModal;
<br>finally
<br>Form3.Release;
<br>end;
<br>end;
<br>unter Uses in Form1 uses Unit2 eintragen
<br>unter Uses in Form2 uses Unit3 eintragen.
Ich hatte den Fehler gemacht ich das falsche Form freigebenen habeComment
-
@Peter
besser:
<PRE>
try
frmForm1 := TfrmForm1.Create(<B>Self</B>);
frmForm1 := TfrmForm1.ShowModal;
finally
frmForm1.Release;
end;
</PRE>
Create solltest du in den Try-finally Block einschließen.
Self macht die aufrufende Form zum Owner.
gruß
bernharComment
-
Moin Bernhard,<br>
<br>
wieso try und dann Create?<br>
Erst wenn Du dass Objekt erfolgreich erzeugt hast macht ein Resourceschutzblock doch sinn.<br>
<br>
Ciao<br>
ChriComment
-
Und wenn's am Ende nicht KlapptComment
-
Hallo Bernhard,
dann bekommst Du im Finally-Block eine Zugriffsverletzung. Schließlich hat FrmForm1 keinen gültigen Wert falls das Create fehlschlägt.
Tschau
TorsteComment
Comment