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.