创建窗体到容器中

Question

已经做好窗体，想让它在其他界面的PANEL中显示出来，怎么写啊

Answer 1

创建窗体，指定窗口的Parent就行了
frmView.Parent := pnl;

Answer 2

procedure MergeWinForm(WinForm: TForm; WinControl: TWinControl);
begin
  WinForm.Parent := WinControl;
  WinForm.BorderStyle := bsNone;
  WinForm.Align := alClient;
  WinForm.Show;
end;

Answer 3

把句柄传过去给PANEL.
即FORM.parent:=PANEL

Answer 4

procedure ShowPanel(APanel,APanelMain: TPanel);
var
  I: Integer;
  AControl: TControl;
begin
  APanel.Parent := APanelMain;
  APanel.Left := 0;
  APanel.Top := 0;
  APanel.Visible := True;
  for I := 0 to APanelMain.ControlCount - 1 do
  begin
    AControl := APanelMain.Controls[I];
    if (AControl is TPanel) and (AControl <> APanel) then
      AControl.Visible := False;
  end;
end;