求编制多页面浏览器的思路

[dfszstock]

下面这个函数只能动态建立新的 tabsheet. 但是却没有显示网页，不知道错在哪里？
求编制多页面浏览器的思路或者源吗学习。

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
var newbrowser:twebbrowser; newtabsheet:TTabSheet;
begin
newtabsheet:=TTabSheet.Create(nil);
newtabsheet.PageControl:=pagecontrol1;
newbrowser:=twebbrowser.Create(nil);
newtabsheet.InsertControl(newbrowser);
newbrowser.align:=alclient;
newbrowser.onnewwindow2:=newbrowser.OnNewWindow2;
pagecontrol1.ActivePage:=newtabsheet;
ppDisp := newbrowser.ControlInterface;
end;

[何鲁青]

腾讯和firefox都是这种样式...

[dfszstock]

自己顶一下。

[dfszstock]

那位大侠显一下身，帮帮小弟。

[dfszstock]

最后顶一次。

[zr1982930]

帮顶！