zoukankan      html  css  js  c++  java
  • TWebBrowser 与 MSHTML(2): 获取 window 对象的时机


    这是在页面下载完毕后即刻获取:

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, OleCtrls, SHDocVw, StdCtrls;
    
    type
      TForm1 = class(TForm)
        WebBrowser1: TWebBrowser;
        Button1: TButton;
        Button2: TButton;
        procedure FormCreate(Sender: TObject);
        procedure WebBrowser1DocumentComplete(ASender: TObject;
          const pDisp: IDispatch; var URL: OleVariant);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses MSHTML;
    var window: IHTMLWindow2;
    
    {建立时同时打开页面}
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      WebBrowser1.Align := alTop;
      WebBrowser1.Navigate('http://del.cnblogs.com');
    end;
    
    {当页面打开完毕时获取 window 对象}
    procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    begin
      if pDisp = (ASender as TWebBrowser).Application then
      begin
        window := ((ASender as TWebBrowser).Document as IHTMLDocument2).parentWindow;
      end;
    end;
    
    end.
    
  • 相关阅读:
    mysql dns反说明的成绩
    Solaris 11 安装图解(1)
    Meld 1.1.5
    Open Movie Editor-视频编纂器
    Solaris 11 装配图解(6)
    Pidgin 2.0.2
    Subversion 1.4.4 发布
    Solaris 11 安装图解(5)
    Solaris 11 安置图解(3)
    HTML 实体盘诘东西
  • 原文地址:https://www.cnblogs.com/del/p/1410930.html
Copyright © 2011-2022 走看看