Delphi TWebBrowser：确定带有框架的页面何时完成

本文整理自网络，侵删。

 
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OLEvariant);
var
  CurWebrowser : IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document     : OLEvariant;
  WindowName   : string;
begin { TForm1.WebBrowser1DocumentComplete }
  CurWebrowser := pDisp as IWebBrowser; 
  TopWebBrowser := (Sender as TWebBrowser).DefaultInterface; 
  if CurWebrowser=TopWebBrowser then 
  begin
    ShowMessage('Document is complete.') 
  end
  else 
  begin 
    Document := CurWebrowser.Document; 
    WindowName := Document.ParentWindow.Name; 
    ShowMessage('Frame ' + WindowName + ' is loaded.')
  end;
end;
 

相关阅读 >>

Delphi 串口查询所有com口

Delphi sqlite vacuum 压缩数据库体积

Delphi excel表格数据导入数据库

Delphi xe6 实现ping的功能

Delphi 自定义colorbox只显示指定颜色项目 colorbox显示中文颜色名称

Delphi中tapplicationevents控件的用途与使用方法

Delphi webbrowser设置自己定义user-agent

Delphi 结束360safe和360保险箱进程

Delphi vista和win7下如何弹出uac

Delphi 在windows右键菜单中加上关联

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi TWebBrowser：确定带有框架的页面何时完成