浏览器如实现分页

[chenzhechenge]

我现在用我自己的浏览器上网时,一点到超链接IE就会弹出来,如何用编程的方法实现Tencent的浏览器一样,实现分页功能。我现在最主要想知道如何让鼠标一点超链接，IE不出来，在PageControl的另一页出另一网页。

[chenzhechange]

这个功能浏览器哪里有免费源码下载

[maer56]

假设你的浏览器窗口是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中

[masterjames]

使用MDI程序

[wycg_cnh20]

学习

[zwb666]

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;

[song0320]

table