怎样的窗体才能 又能放到其他窗体，又能独立做窗体？？Form能放在其他窗体上么？？

Question

我试了将 Form 动态加到 其他窗体上。subfrm:=Form.create;
subfrm.parent:=Self;subfrm.show;结果，子 窗体操作倒正常。 但 父窗体，却好像死了一样不刷新了。
这是怎么回事？？

Answer 1

//停靠的实现
procedure TFrmDraw.PanelDockUnDock(Sender: TObject; Client: TControl;
  NewTarget: TWinControl; var Allow: Boolean);
begin
  PanelDock.Width:=5;
end;procedure TFrmDraw.FormShow(Sender: TObject);
begin
  frmTool:=TFrmTool.Create(Application);
  FrmTool.ManualDock(panelDock);
  IniVar;
  frmTool.iniTool;
 end;procedure TFrmDraw.PanelDockDockOver(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
    accept:=(source.Control=FrmTool);
end;procedure TFrmDraw.PanelDockDockDrop(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer);
begin
  source.Control.Width:=112;
  PanelDock.Width:=source.Control.Width;
end;procedure TFrmDraw.PanelDockRightDockDrop(Sender: TObject;
  Source: TDragDockObject; X, Y: Integer);
begin
   source.Control.Width:=112;
   PanelDockRight.Width:=source.Control.Width;
end;procedure TFrmDraw.PanelDockRightUnDock(Sender: TObject; Client: TControl;
  NewTarget: TWinControl; var Allow: Boolean);
begin
   PanelDockRight.Width:=5;
end;