禁止WebBrowser弹出IE的对话框

1、Delphi禁止WebBrowser弹出IE的对话框.docWebBrowser如何关闭弹出的alert对话框，我找了很久也没有解决办法。我的程序是用delphi写的。有试过几种方法。第一种用 WMActivate(var Msg: TWMActivate); message WM_ACTIVATE; 事件在正常情况下可以自动关闭，但我的程序是运行在系统托盘的，在最小化到托盘后，这个事件就不起作用了。第二种用 obj.parentWindow.execScript function showModalDialog()return; 类似的方法，网页本页面弹出的对话框可以屏蔽，但我的程序调用了某

2、个ASPX页面，它是提交后返回时弹出对话框的，也不起作用了。对话框弹出的时候，只有WebBrowser控件不可用，程序还是正常运行的，我就用个 Timer 来 FindWindow(IEFrame,nil) 然后SendMessage关闭事件，但是根本没效果。程序只差一个功能完工了啊，500高分求解！问题补充： 还有匿名回答啊可以了,多谢,到这边拿分吧多任务网页定时刷新器 EMBED Forms.HTML:Hidden.1 EMBED Forms.HTML:Hidden.1 EMBED Forms.HTML:Hidden.1 最佳答案 在CSDN上有类似的问题,参见以下代码经测试有用（2011

3、年1月5日测试）。function CallBackProc(H, HMainForm: hwnd): Boolean; stdcall;var hChild : hwnd;begin Result := True; if GetParent(H) = HMainForm then begin /可以在这里进一步判断类名，以免关掉其他弹出窗口 hChild := FindWindowEx(H, 0, PChar(Button), PChar(确定); if hChild 0 then SendMessage(hChild, BM_Click, 0, 0); end;end;procedure

4、TForm1.Timer1Timer(Sender: TObject);begin EnumWindows(CallBackProc, Self.Handle);end;procedure TForm1.Button1Click(Sender: TObject);begin Self.WebBrowser1.Navigate(C:Documents and Settingsjiaotongju桌面test2test.htm);end;procedure TForm1.Button2Click(Sender: TObject);begin Self.Timer1.Enabled := True;

5、/Web页面装载完毕后开启Timerend;procedure TForm1.FormCreate(Sender: TObject);begin Self.Timer1.Enabled := False; Self.Timer1.Interval:= 100;end;附CSDN的原稿：在CSDN上有类似的问题,参见我程序中用WebBrowser打开一个网页，点击网页上的一个提交按钮时会弹出一个对话框（对话框是网页中的alert函数产生），造成程序的执行中断，需要手工点一下（或按回车）确定按钮才能继续，现在我想通过程序自动关闭这个对话框，请大家帮帮我!function CallBackProc(

6、H, HMainForm: hwnd): Boolean; stdcall;var hChild : hwnd;begin Result := True; if GetParent(H) = HMainForm then begin hChild := FindWindowEx(H, 0, PChar(Button), PChar(确定); if hChild 0 then SendMessage(hChild, BM_Click, 0, 0); end;end;procedure TForm1.Timer1Timer(Sender: TObject);begin EnumWindows(Ca

7、llBackProc, Self.Handle);end;procedure TForm1.Button1Click(Sender: TObject);begin Self.WebBrowser1.Navigate(C:Documents and Settingsjiaotongju桌面test2test.htm); Self.Timer1.Enabled := True;/这句只是我测试时放在了这里end;楼上的方法没用的,webbrowser里的js弹出的对话框是堵塞的,当用程序调用click方法时,代码是堵塞在click里的.俺不知道楼上您和楼主的JS代码是什么样子的。俺只是按俺自己的想

8、象测试成功的。下面是俺的全部代码：function CallBackProc(H, HMainForm: hwnd): Boolean; stdcall;var hChild : hwnd;begin Result := True; if GetParent(H) = HMainForm then begin /可以在这里进一步判断类名，以免关掉其他弹出窗口 hChild := FindWindowEx(H, 0, PChar(Button), PChar(确定); if hChild 0 then SendMessage(hChild, BM_Click, 0, 0); end;end;pr

9、ocedure TForm1.Timer1Timer(Sender: TObject);begin EnumWindows(CallBackProc, Self.Handle);end;procedure TForm1.Button1Click(Sender: TObject);begin Self.WebBrowser1.Navigate(C:Documents and Settingsjiaotongju桌面test2test.htm);end;procedure TForm1.Button2Click(Sender: TObject);begin Self.Timer1.Enabled := True;/Web页面装载完毕后开启Timerend;procedure TForm1.FormCreate(Sender: TObject);begin Self.Timer1.Enabled := False; Self.Timer1.Interval:= 100;end;这是C:Documents a