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

總結

以上是生活随笔為你收集整理的PANEL中显示窗体的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。