https://bbs.csdn.net/topics/391980918
1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 7 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls, 8 Unit2; 9 type 10 TForm1 = class(TForm) 11 Button1: TButton; 12 Button2: TButton; 13 Button3: TButton; 14 PageControl1: TPageControl; 15 TabSheet1: TTabSheet; 16 procedure Button1Click(Sender: TObject); 17 private 18 { Private declarations } 19 public 20 { Public declarations } 21 end; 22 23 var 24 Form1: TForm1; 25 Form2: TForm2; 26 implementation 27 28 {$R *.dfm} 29 30 procedure TForm1.Button1Click(Sender: TObject); 31 begin 32 if not Assigned(Form2) then 33 Form2 := TForm2.Create(nil); 34 try 35 Form2.ManualDock(PageControl1.Pages[0]); // 嵌入PageControl1.Pages[0] 36 Form2.Show; 37 except 38 Form2.Close; 39 Exception.Create('Error'); 40 end; 41 end; 42 43 end.