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

dfszstock 2005-03-22 05:19:15

下面这个函数只能动态建立新的 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;
...全文
75 点赞 收藏 5
写回复
5 条回复
zr1982930 2005年03月28日
帮顶!
回复 点赞
dfszstock 2005年03月28日
最后顶一次。
回复 点赞
dfszstock 2005年03月25日
那位大侠显一下身,帮帮小弟。
回复 点赞
dfszstock 2005年03月23日
自己顶一下。
回复 点赞
何鲁青 2005年03月22日
腾讯和firefox都是这种样式...
回复 点赞
发动态
发帖子
语言基础/算法/系统设计
创建于2007-08-02

3418

社区成员

3.3w+

社区内容

Delphi 语言基础/算法/系统设计
社区公告
暂无公告