110,538
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.wbBrowserNewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
try
if Assigned(frmWB) then
freeAndNil(frmWB);
frmWB := TfrmOpenWb.Create(self);
frmWB.Visible:=true;
ppDisp := frmWB.WebBrowser1.ControlInterface;
Cancel:=false;
except
end;
end;
private void webBrowser1_Navigated(object sender, WebBrowserNavigatedEventArgs e)
{
IHTMLWindow2 win = (IHTMLWindow2)webBrowser1.Document.Window.DomWindow;
string s = "window.alert = null;\r\nwindow.confirm = null;\r\nwindow.open = null;\r\nwindow.showModalDialog = null;";
win.execScript(s, "javascript");
}