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;