求编制多页面浏览器的思路
下面这个函数只能动态建立新的 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;