会编网络浏览器的高手请进(100分)

  • 主题发起人 主题发起人 sy0116
  • 开始时间 开始时间
S

sy0116

Unregistered / Unconfirmed
GUEST, unregistred user!
我用webbrowser控件编了一个浏览器,发现用这个浏览器打开网页后在连接上右键点击后选择在新页面中打开时程序会调用IE来打开新网页,而不是他自己再开一个窗口来打开,请问如何才能让他自己再开一个窗口来打开呢?有人告诉我要用到webbrowser的onnewwindow2事件,但我不知道怎么用,望各位高手提供一段例子
 
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
//在这事件中另外生成一个窗口(比如这里为WebBrowser2)来显示新链接
ppDisp:=WebBrowser2.Application;
end;
 
可我的程序是单页面,我想用pagecontrol把它改成多页面的,即在newwindow2时添加一个pagecontrol和webbrowser,并用添加的webbrowser打开,但我不知如何操作,请高手帮忙
 
那你就动态生成控件。。。
 
去年的《程序员》杂志上有介绍,写的很全,你可以看看,相信会很有帮助的
 
下面这里是动态生成一个PageControl 新页面的方法:
其中 a 为防止重名而设的,你自己改改就可以了
procedure TForm1.Button1Click(Sender: TObject);
var
newsheet:TTabSheet;
begin
newsheet:=TTabSheet.Create(self); //or newsheet:=TTabSheet.Create(PageControl1)
newsheet.Caption:='TabSheet' + inttostr(a);
newsheet.Name:='TabSheet' + inttostr(a);
newsheet.PageControl:=PageControl1;
inc(a);
end;
 
呵呵,我来晚了,我以前也写过基于IE内核的浏览器的,也是用pagecontrol控件,方法和楼上的差不多,但现在改用多窗口,就是MDI了,不过现在写这样的软件已没什么用了,MYIE2已相当不错了。
 

Similar threads

D
回复
0
查看
926
DelphiTeacher的专栏
D
D
回复
0
查看
867
DelphiTeacher的专栏
D
D
回复
0
查看
940
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部