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

[Bummi]

Nur Workarounds, die Edits/Memos sind focusierbar/bearbeitbar erreichbar z.B. durch TAB, was nicht funktioniert ist die Fokussierung durch Mausklick.
Das Verhalten verschwindet wenn man BorderStyle auf bsNone stellt, ansonsten könnte man für die Nachfahren von TCustomEdit ein Event versorgen.

Delphi-Quellcode:

procedure TForm6.AllEditsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   TCustomEdit(Sender).SetFocus;
end;