PANEL中显示窗体

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

 

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

 

//释放

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