为什么WebBrowser下载完成一个页触发两次onDocumentComplete事件？

因为你浏览的页面可能有框架，框架中包含多少个页面，就会触发多少个onDocumentComplete事件。

每个单独的框架都可能会触发DocumentComplete事件。
框架集页面会最后触发DocumentComplete事件。
发送事件的对象可以通过DocumentComplete事件的第一个参数访问

procedure   TForm1.WebBrowser1DocumentComplete(Sender:   TObject; 
    const   pDisp:   IDispatch;   var   URL:   OleVariant); 
var 
    CurWebrowser:   IWebBrowser; 
    TopWebBrowser:   IWebBrowser; 
    Document:   OleVariant; 
    WindowName:   string; 
begin 
    CurWebrowser   :=   pDisp   as   IWebBrowser; 
    TopWebBrowser   :=   (Sender   as   TWebBrowser).DefaultInterface; 
    if   CurWebrowser   =   TopWebBrowser   then 
        ShowMessage( 'Complete   document   was   loaded ') 
    else 
    begin 
        Document   :=   CurWebrowser.Document; 
        WindowName   :=   Document.ParentWindow.Name; 
        ShowMessage(Format( 'Frame   "%s "   was   loaded ',   [WindowName])); 
    end; 
end; 


这个可以知道真正的   onDocumentComplete