wenn ich diesen Code nehme, wie kann ich dann den Parent der Form setzen ?
Delphi-Quellcode:
procedure TFormMain.CreateAndShowForm(FormClass: TFormClass; var Reference);
begin
if not Assigned(TComponent(Reference)) then
begin
Application.CreateForm(FormClass, Reference);
TCustomForm(Reference).Parent := PanelMain; // versucht
end;
with TCustomForm(Reference) do
begin
Show;
if WindowState = wsMinimized
then WindowState := wsNormal;
end;
end;
Zeile: TCustomForm(Reference).Parent := PanelMain;
Die Zeile funktioniert, das erzeugte Form kann ich nicht über das Panel des Hauptformulars hinaus bewegen, aber ich kann ein Edit Feld oder Memo was auf diesem Form liegt nicht benutzen. Auf einen Button oder eine CheckBox auf dem Form kann ich allerdings drücken... ?