Ich lege meine Forms zur Laufzeit mit dieser Procedure an, das geht gut.
procedure ShowOneOfMyForm(FormClassName: string);
begin
with TFormClass(FindClass(FormClassName)).Create(Applic ation) do
try
ShowModal;
finally
Free;
end;
end;
Nun möcht ich auf diesem Form eine Tedit anlegen auch so ähnlich:
with TComponentClass(FindClass(FormClassName)) do
with tcomponent.Create(self) do begin
Name := 'Component1';
Left := 10;
Top := 10;
Parent := PnPage1;
end;
try
finally
end;
procedure ShowOneOfMyForm(FormClassName: string);
begin
with TFormClass(FindClass(FormClassName)).Create(Applic ation) do
try
ShowModal;
finally
Free;
end;
end;
Nun möcht ich auf diesem Form eine Tedit anlegen auch so ähnlich:
with TComponentClass(FindClass(FormClassName)) do
with tcomponent.Create(self) do begin
Name := 'Component1';
Left := 10;
Top := 10;
Parent := PnPage1;
end;
try
finally
end;