PageControl的页怎样动态生成？

Question

    就像腾讯的浏览器那种，怎样生成一个包含HTML浏览窗口的新页？

Answer 1

uses
  OleCtrls, SHDocVw;procedure TForm1.Button1Click(Sender: TObject);
var
  tab :TTabSheet;
  web :TWebBrowser;
begin
  tab :=TTabSheet.Create(PageControl1);
  tab.PageControl :=PageControl1;
  tab.Caption := '123';
  web :=TWebBrowser.Create(tab);
  web.Align := alClient;
  web.ParentWindow := tab.Handle ;
end;

Answer 2

先将TPageControl置入主界面，默认为一页。增加新页时：
with TTabSheet.Create(self) do
  PageControl:=PageControl1

Answer 3

先将TPageControl置入主界面，默认为一页。增加新页时：
with TTabSheet.Create(self) do
  PageControl:=PageControl1

Answer 4

增加页面：
procedure TForm1.Button1Click(Sender: TObject);
var
tab1: TTabsheet;
begin
  tab1 := TTabsheet.Create(self);
  tab1.Caption := '新页面';
  tab1.PageControl := PageControl1;
end;
不想要时，把这个页面对象释放就行了。

Answer 5

建议不要用tab1 := TTabsheet.Create(self);，因为拥有着的问题
procedure TForm1.Button1Click(Sender: TObject);
var
  tab :TTabSheet;
begin
  tab :=TTabSheet.Create(PageControl1);
  tab.PageControl :=PageControl1;
  tab.Caption := '你想要的名字';
end;