Form Parent setzen

**user0815**

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... ?

Form Parent setzen

Form Parent setzen

Forumregeln