webbrowser1.silent:=true;    //屏蔽脚本错误

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
 Cancel:=True;   //禁止弹出窗口
end;

Last modification：August 16th, 2009 at 12:30 pm
© 允许规范转载
如果觉得我的文章对你有用，请随意赞赏