如何用panel实现MDI模式

Question

我在form1上加载了一个panel2的控件，然后用两个按钮来实现如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
  application.CreateForm(tFORM2,FORM2);
  FORM2.DOCK(panel2,BoundsRect);
  form2.Show;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  form2 := Tform2.Create(form1.Panel2);
  form2.Parent := FORM1.Panel2 ;
  form2.ManualDock(panel2,nil,alclient);
  form2.show;
end;
但是DOCK，ManualDock，都看不见form2有上角的那三个缩小，放大，退出的按钮，
请问如何用panel可以达到mdi这种效果啊？

Answer 1

你要Dock做什么呀，  把Dock部分去掉就好了如果实在要用Dock就把Panel2.DockSite 设为True;
另外如果是自动方式请将Form2.DragKind := dkDock ,Form2.DragMode = dmAutomatic

Answer 2

没错，
ManualDock(panel2,nil,alclient);
就是把FORM2的大小调整到PANEL2上去
不会出现你所说的3个按钮
如果要这三个按钮，还得做成MDI子窗体！
你去查查帮助ManualDock，就明白了