100分求：TWebBrowser打开的网页里面如果有IFRAME怎么判断OnDocumentComplete事件！

现在知道的方法有两个  
  procudure   Form1.WebBrowser1OnDocumentcomplete(....)  
  begin  
      if   WebBrowser1.busy   then   exit;  
      if   WebBrowser1.Stats   <>   Complete   then   exit;  
                                                  //~~~~~~~~~~~~~第二句话具体怎么写忘了。  
  end;  
   
  请问各位兄弟   还有没什么其它方法，  
  最好是能把   IFRAME   直接禁用了，就像禁用JAVASCRIPT一样。  
   
  现在两个方法都不稳定，时好时坏！  
  问题点数：100、回复次数：3Top

1 楼ssq237712（流亡帅哥）回复于 2005-01-06 18:57:30 得分 20

这个俺不懂，帮你顶上去Top

2 楼aiirii（ari-http://spaces.msn.com/members/aiirii/）回复于 2005-01-07 15:54:56 得分 80

use   a   Webbrowser's   OnDocumentComplete   with   frames?    
   
  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;  
  Top

3 楼bamfk10231023（银狐）回复于 2005-01-08 10:54:11 得分 0

时好时坏，其实方法解决了。  
  结贴!Top

相关问题

• document
• ondocumentcomplete
• curwebrowser
• topwebbrowser
• windowname
• webbrowser
• iwebbrowser
• 方法
• begin
• then

• 帖主：bamfk10231023
• ssq237712
• aiirii

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载