PANEL中显示窗体

var
  frm: TForm2;//定义窗口类
begin
  PageControl1.activepage:=tabsheet1;
  if Panel1.ControlCount = 0 then begin
    frm := Tform2.Create(self);
    frm.Parent := Panel1;
    frm.BorderStyle := bsnone;
    frm.WindowState := wsmaximized;
    if skindata1.active then
      skindata1.AddNestForm(self,frm);
    frm.Visible := True;
  end;
end;

 

var frm:Tframe3;//定义窗口类
begin
  PageControl1.activepage:=tabsheet2;
  if Panel2.ControlCount = 0 then begin
    frm := Tframe3.Create(self);
    frm.Parent := Panel2;
    //skindata1.AddNestForm(self,frm);
    frm.Visible := True;
  end;
end;

 

//释放

begin
  if Panel2.ControlCount > 0 then
    TFrame(Panel2.Controls[0]).free;
end;

转载于:https://www.cnblogs.com/tecsoon/archive/2009/03/26/1422454.html