如何在Panel中加载另外一个窗体

[langren1314]

在Panel中加载一个窗体,可使加载的窗体在Panel中显示窗体内容,

[gxgyj]

只要设置窗体的parent就可以了：
form2.parent:=form1.panel1;
form2.show;

[fyxi]

按下面这样做就可以了

form1.Panel1.DragKind := dkDock;


//要show的窗体
form2.DragKind := dkDock;
form2.DragMode := dkAutomatic;

//显示窗体
procedure TfrmMain.spbtnHolidayClick(Sender: TObject);
begin
//显示节假日管理
form2 := Tform2.Create(Application);
form2.ManualDock(Panel1, nil, AlClient);
form2.Show ;
end;