禁止WebBrowser彈出IE的對(duì)話框

1、Delphi禁止WebBrowser彈出IE的對(duì)話框.docWebBrowser如何關(guān)閉彈出的alert對(duì)話框，我找了很久也沒(méi)有解決辦法。我的程序是用delphi寫(xiě)的。有試過(guò)幾種方法。第一種用 WMActivate(var Msg: TWMActivate); message WM_ACTIVATE; 事件在正常情況下可以自動(dòng)關(guān)閉，但我的程序是運(yùn)行在系統(tǒng)托盤(pán)的，在最小化到托盤(pán)后，這個(gè)事件就不起作用了。第二種用 obj.parentWindow.execScript function showModalDialog()return; 類(lèi)似的方法，網(wǎng)頁(yè)本頁(yè)面彈出的對(duì)話框可以屏蔽，但我的程序調(diào)用了某

2、個(gè)ASPX頁(yè)面，它是提交后返回時(shí)彈出對(duì)話框的，也不起作用了。對(duì)話框彈出的時(shí)候，只有WebBrowser控件不可用，程序還是正常運(yùn)行的，我就用個(gè) Timer 來(lái) FindWindow(IEFrame,nil) 然后SendMessage關(guān)閉事件，但是根本沒(méi)效果。程序只差一個(gè)功能完工了啊，500高分求解！問(wèn)題補(bǔ)充： 還有匿名回答啊可以了,多謝,到這邊拿分吧多任務(wù)網(wǎng)頁(yè)定時(shí)刷新器 EMBED Forms.HTML:Hidden.1 EMBED Forms.HTML:Hidden.1 EMBED Forms.HTML:Hidden.1 最佳答案 在CSDN上有類(lèi)似的問(wèn)題,參見(jiàn)以下代碼經(jīng)測(cè)試有用（2011

3、年1月5日測(cè)試）。function CallBackProc(H, HMainForm: hwnd): Boolean; stdcall;var hChild : hwnd;begin Result := True; if GetParent(H) = HMainForm then begin /可以在這里進(jìn)一步判斷類(lèi)名，以免關(guān)掉其他彈出窗口 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頁(yè)面裝載完畢后開(kāi)啟Timerend;procedure TForm1.FormCreate(Sender: TObject);begin Self.Timer1.Enabled := False; Self.Timer1.Interval:= 100;end;附CSDN的原稿：在CSDN上有類(lèi)似的問(wèn)題,參見(jiàn)我程序中用WebBrowser打開(kāi)一個(gè)網(wǎng)頁(yè)，點(diǎn)擊網(wǎng)頁(yè)上的一個(gè)提交按鈕時(shí)會(huì)彈出一個(gè)對(duì)話框（對(duì)話框是網(wǎng)頁(yè)中的alert函數(shù)產(chǎn)生），造成程序的執(zhí)行中斷，需要手工點(diǎn)一下（或按回車(chē)）確定按鈕才能繼續(xù)，現(xiàn)在我想通過(guò)程序自動(dòng)關(guān)閉這個(gè)對(duì)話框，請(qǐng)大家?guī)蛶臀?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;/這句只是我測(cè)試時(shí)放在了這里end;樓上的方法沒(méi)用的,webbrowser里的js彈出的對(duì)話框是堵塞的,當(dāng)用程序調(diào)用click方法時(shí),代碼是堵塞在click里的.俺不知道樓上您和樓主的JS代碼是什么樣子的。俺只是按俺自己的想

8、象測(cè)試成功的。下面是俺的全部代碼：function CallBackProc(H, HMainForm: hwnd): Boolean; stdcall;var hChild : hwnd;begin Result := True; if GetParent(H) = HMainForm then begin /可以在這里進(jìn)一步判斷類(lèi)名，以免關(guān)掉其他彈出窗口 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頁(yè)面裝載完畢后開(kāi)啟Timerend;procedure TForm1.FormCreate(Sender: TObject);begin Self.Timer1.Enabled := False; Self.Timer1.Interval:= 100;end;這是C:Documents a