类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我现在用我自己的浏览器上网时,一点到超链接IE就会弹出来,如何用编程的方法实现Tencent的浏览器一样,实现分页功能。我现在最主要想知道如何让鼠标一点超链接，IE不出来，在PageControl的另一页出另一网页。
网友回答：
这个功能浏览器哪里有免费源码下载
假设你的浏览器窗口是TForm1的话：
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewWindow: TForm1;
begin
// a new instance of the form will be created
// Eine neue Instanz wird erstellt
NewWindow := TForm1.Create(self);
NewWindow.Show;
ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;
-----------------------------
参考以上代码
然后在自己用动态创建组件方法加到PageControl中
使用MDI程序
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewWindow: TForm1;
begin
// a new instance of the form will be created
// Eine neue Instanz wird erstellt
NewWindow := TForm1.Create(self);
NewWindow.Show;
ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;