TWebBrowser的问题，在点击超链接时怎样让页面在TWebBrowser里显示，而不是打开ie显示？

Question

要用TWebBrowser控件做一个浏览器，在打开一个页面后，在页面里点击一个链接，会用ie打开这个页面显示，怎样让这个页面显示在控件里，而不是ie

Answer 1

试下：
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  NewApp: TForm1;
begin
  NewApp := TForm1.Create(nil);
  NewApp.Visible := True;
  ppDisp := NewApp.WebBrowser1.Application;
end;

Answer 2

谢谢liangqingzhi(老之) ，请问怎样让它在同一个窗口显示呢？这个问题搞定了马上给分！！

Answer 3

ppDisp := self;简单啊