webbrower如何才能在自身窗口中打开链接或脚本(200)

各位朋友: 大家好! 为了在webbrower点击链接能在自身窗口中打开, 写了以下代码, 结果发现 点击有的链接能在自身窗口中打开, 点击另外的链接(当中的那些链接)却没有反应, 为什么 ??? 为了达上述目的, 正确的代码应该如何写 ??? procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch;
var Cancel: WordBool);
begin
ppDisp := WebBrowser1.Application ;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.sina.com.cn/');
end;

是否是当作了弹出窗口被阻止了？

刚才我用系统的ie7浏览http://www.sina.com.cn/发现一个有趣的现象: 用我上述代码在webbrower中点击能在自身窗口中打开的链接,在ie7中点击也在 自身窗口中打开, 而用我上述代码在webbrower中点击没有反应的那些链接, 在ie7中点击会在新窗口中打开, 也就是说在ie7中点击会在新窗口中打开的那些链接在webbrower点击时用 procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch;
var Cancel: WordBool);
begin
ppDisp := WebBrowser1.Application ;
end;

就会没有反应 !! 为什么 ?? 所有的链接或脚本都能在自身窗口中打开代码 应该如何写 ???

没弄过这个东西，手头也没有delphi来验证你的问题，我看到这个函数传进来两个指针，是否那个Cancel默认了为true?另外ppDisp是否指向了错误的对象？我感觉Application既然是一个com对象，那么是否有成员方法来打开你的新窗口？