526互联

delphi Panel和PageControl中加载窗体

发布时间 2024-01-13 18:33:56作者: txgh

Panel和PageControl中加载窗体

代码

Panel中载入窗体

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Parent := Panel1;
  Form2.Align := alClient;
  Form2.BorderStyle := bsNone;
  Form2.Show;
end;

TPageControl中载入窗体

procedure TForm1.Button1Click(Sender: TObject);
var
  vTab: TTabSheet;
begin
  //创建TTabSheet
  vTab := TTabSheet.Create(nil);
  vTab.Caption := '测试载入Form2';
  vTab.PageControl := PageControl1;
  vTab.PageIndex := 0;
  PageControl1.ActivePage := vTab;
  //载入Form2
  Form2.Parent := vTab;
  Form2.Align := alClient;
  Form2.BorderStyle := bsNone;
  Form2.Show;
end;