Delphi中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;