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;

你可能感兴趣的:(Delphi)