如何屏蔽TwebBrowser中页面弹出的对话框？

Question

rt~
比如访问某些网站的页面时，会弹出请登陆的提示框，然后重定向到登陆页面上。
怎么屏蔽掉这个提示框，而又不影响网页的重定向？

Answer 1

//我今天也在搞WebBrowse控件,目前仅知道这样可以关闭新窗口的开启,但具体的控制你就自己去弄明白了.procedure TWebBrowseForm.WebBrowserNewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  Cancel:= TRUE;
end;

Answer 2

procedure TWebBrowseForm.WebBrowserNewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  Cancel:= TRUE;  //禁止开启新窗口.
end;