如何让我做的浏览器不打开新的窗口

Question

用的是Delphi自带的WebBrowser控件,但浏览一些网站总会自动弹出新的网页,有没有办法让WebBrowser不弹出新的窗口的.

Answer 1

procedure TfrmMainWindow.WebBrowserStatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  NewURL :=text;
end;procedure TfrmMainWindow.WebBrowserNewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  Cancel:=true;   
  try
    WebBrowser.Navigate (NewURL);
  except
    WebBrowser.Refresh;
  end;
end;
在这两个事件里添加这些代码就可以了！