怎样编程实现将某一窗体装到另一窗体的Panel控件里去?

Question

Or use docksite,just to set followwing properties.Form1.Panel1.DockSite:=True;Form2.DragKind:=dkDock;
Form2.DragMode:=dmAutomatic;

Answer 1

基本上不需要，如果要好看，可能
Align要设为alClient。

Answer 2

设置Panel1.DockSite := true;
将Form2的DragMode 设为dmAutomatic
DragKind 设为dkDock.uses Unit2;var
  Form2: TForm2;{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
  Form2 := TForm2.Create(self);
  Form2.Show;
  Form2.ManualDock(Panel1);
end;procedure TForm1.Panel1DockDrop(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer);
begin
  Panel1.Width := 100;
end;procedure TForm1.Panel1UnDock(Sender: TObject; Client: TControl;
  NewTarget: TWinControl; var Allow: Boolean);
begin
  if Panel1.DockClientCount = 1 then
    Panel1.Width := 0;
end;

Answer 3

对了,Panel1的align设为alLeft会好看一点,panel1.width可以设宽一点。