pagecontrol的动态嵌套创建

Question

我需要在一个pagecontrol里动态创建tabsheet，然后每个tabsheet创建后都会有一个webbrowser，就像现在的浏览器一样的功能，我查到一个老帖子
http://www.80diy.com/home/20020924/14/1049021.html，但是没看明白，好像还很麻烦，还有数量限制，我现在能动态创建tabsheet了，但是接着嵌套里面的webbrowser就不会啦，希望哥哥们详细解答下吧。最好别只贴代码啊解释下，越详细越好 ，因为我是新手，分不够另外开贴啊。下面是动态生成tabsheet的代码
procedure TForm1.tmr1Timer(Sender: TObject);
  var  
      NewSheet:TTabSheet;
  begin
      NewSheet:=TTabSheet.Create(self);
      with   NewSheet   do  
      begin
          PageControl    := ts1.PageControl;
          Caption:=pnl1.Caption ;//自己写
          Hint:=pnl1.Caption ;//自己写
      end;
      end;
end.

Answer 1

var
  NewSheet:TTabSheet;
  web:TWebBrowser;
begin
  NewSheet:=TTabSheet.Create(self);
    with  NewSheet  do
    begin
        PageControl    := PageControl1;
        Caption:=pnl1.Caption  ;//自己写
        Hint:=pnl1.Caption  ;//自己写
        web := TWebBrowser.Create(Self);
        web.ParentWindow := NewSheet.Handle;
        web.Align := alClient;
    end;
  end;
end.

Answer 2

 web.ParentWindow := NewSheet.Handle;
这一句不明白啊 哥哥  
别人告诉我 web.ParentWindow := NewSheet.parent;不正确

Answer 3

procedure TForm1.btn3Click(Sender: TObject);
begin
        tmr1.Enabled := true;
end;procedure TForm1.tmr1Timer(Sender: TObject);
  var
      NewSheet:TTabSheet;
      Newwb:TWebBrowser;
  begin
      NewSheet:=TTabSheet.Create(self);
      with   NewSheet   do
      begin
          PageControl := ts1.PageControl;
          Caption:=pnl1.Caption ;//自己写
          Hint:=pnl1.Caption ;//自己写
          Newwb:= TWebBrowser.Create(Self);
          Newwb.ParentWindow:=NewSheet.Handle;
          Newwb.Align:=alClient;
          Newwb.Navigate('http://www.baidu.com') ;
      end;
end;
end.
我出现错误你好人做到底吧   谢谢了啊  不行我再给你分啊

Answer 4

部分源代碼自己研究下吧。需要其它的再留言！http://hi.baidu.com/szba/blog/item/ef8f8c4beb9e2df883025c05.html