浏览器如实现分页

Question

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

Answer 1

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

Answer 2

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;