如何避免嵌入式iframe元素的OnDocumentComplete事件？

Question

我想阻止iframe元素每次觸發OnDocumentComplete事件。例如，一個頁面有4個iframe，當我加載這個頁面時，我的OnDocumentComplete事件運行4次。我想爲每個頁面運行OnDocumentComplete一次。我怎樣才能做到這一點？

也許我可以在TWebBrowser控件中刪除或阻止iframes。

Answer 1

在主文檔中爲每個FRAME/IFRAME發起事件OnDocumentComplete。
如果你想忽略他們試試這個：

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; 
    const pDisp: IDispatch; var URL: OleVariant); 
begin 
    // check that the event is raised for the top-level browser (not frames or iframes) 
    if pDisp = TWebBrowser(Sender).ControlInterface then 
    begin 
    // do something nice... 
    end; 
end; 

---

德爾福文檔：

寫一個OnDocumentComplete事件處理採取具體行動時，一幀或文檔被完全加載到網頁瀏覽器。對於沒有框架的文檔，當文檔加載完成後，會發生一次該事件。在包含多個幀的文檔上，每個幀都會發生一次該事件。多幀文檔加載完成後，Web瀏覽器最後一次觸發事件。

發件人是加載文檔的Web瀏覽器。

pDisp是頂級框架或瀏覽器的自動化接口。 加載沒有框架的文檔時，pDisp是網頁瀏覽器的界面。當加載具有多個框架的文檔時，這是包含框架的界面，除了發生最後一次 事件時，它是Web瀏覽器的界面。