| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3279724
建立时间:2005年6月6日 |
| |
|
 [delpih编程]WebBrowser下载完成一个页触发两次onDocumentComplete事件【转】
软件技术
吕向阳 发表于 2009/6/29 6:46:14 |
| WebBrowser下载完成一个页触发两次onDocumentComplete事件收藏因为你浏览的页面可能有框架，每个单独的框架都可能会触发DocumentComplete事件。框架集页面会最后触发DocumentComplete事件。发送事件的对象可以通过DocumentComplete事件的第一个参数访问procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);varCurWebrowser: IWebBrowser;TopWebBrowser: IWebBrowser;Document: OleVariant;WindowName: string;beginCurWebrowser := pDisp as IWebBrowser;TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;if CurWebrowser = TopWebBrowser thenShowMessage('Complete document was loaded')elsebeginDocument := CurWebrowser.Document;WindowName := Document.ParentWindow.Name;ShowMessage(Format('Frame "%s" was loaded', [WindowName]));end;end; 本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/zjhnwlh/articles/1040338.aspx |
|
|