WebBrowser的问题，怎么样在当前的WebBrowser控件里打开弹出窗口，急，等待、、

Question

比如某链接要求打开新窗口，能不能就在当前窗口中将之打开，而不是有IE弹出窗口，或者另外创建WebBrowser对象来容纳它，很急，知道的朋友帮帮忙！！！

Answer 1

以下的例子是根据href属性来查找，找到后改变其属性（不会改变源文件）。
已经调试通过了。
var
    k:integer;
    t:OleVariant;
begin
t := WebBrowser1.Document;
  for k := 0 to t.all.length - 1 do begin
     if ( uppercase(t.all.item(k).tagName)='A') then
     begin
        if(uppercase(t.all.item(k).href)='HTTP://ABC.COM/INDEX.HTM') then
         begin t.all.item(k).setAttribute('target','_self');break; end;
     end;
  end;
end;