Hallo,
die Schutzverletzung kommt wohl,
weil die auf die automatisch erzeugte Form2 Variable (in Form2.pas) zugreifst.
Die ist aber nur gültig, wenn das TForm beim Start des Programms (
dpr) erzeugt wird.
Jetzt machst du das dynamisch, dann geht das nicht mehr so einfach.
Lösung 1:
---------
Delphi-Quellcode:
PanelForm1 := TForm2.Create(Panel1);
Form2:= PanelForm1; // das ist neu
with PanelForm1 do begin
Parent := Panel1;
Show;
end;
Das klappt aber nur, wenn das Form2 nur einmal im Programm benutzt wird.
Lösung 2:
---------
Delphi-Quellcode:
PanelForm1 := TForm2.Create(Panel1);
PanelForm1.Name:= 'PanelForm2'; // PanelForm2 ist absichtlich so gewählt
with PanelForm1 do begin
Parent := Panel1;
Show;
end;
Um auf eine Komponente von Form2 zugreifen zu können
Delphi-Quellcode:
var
MyForm2: TForm2; // ich nehme nicht Form2 !!!
begin
MyForm2:= Panel1.FindComponent('PanelForm2');
Assert(MyForm2<>NIL);
if MyForm2=NIL then Exit;
MyForm2.EditXXX
end;
PS:
Noch ein Hinweis auf Namensgebung (*klugscheiss*).
In der anderen
Unit steht eine Klasse (TForm2).
Wird die Klasse erzeugt (instantiiert), spricht man von einem Objekt (Form2).
Deshalb auch meine Einschränkung zu Lösung 1.
Würden zwei TForm2 erzeugt, würde Form2 auf das zuletzt erzeugt TForm2 zeigen.
Heiko