Delphi中的TWebBrowser与MSHTML（2）:获取window对象的时机

Delphi中的TWebBrowser与MSHTML（2）:获取window对象的时机2012-12-17 博客园万一这是在页面下载完毕后即刻获取:

unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, OleCtrls, SHDocVw, StdCtrls; typeTForm1 = class（TForm）WebBrowser1: TWebBrowser;Button1: TButton;Button2: TButton;procedure FormCreate（Sender: TObject）;procedure WebBrowser1DocumentComplete（ASender: TObject;const pDisp: IDispatch; var URL: OleVariant）;end; varForm1: TForm1; implementation {$R *.dfm} uses MSHTML;var window: IHTMLWindow2; {建立时同时打开页面}procedure TForm1.FormCreate（Sender: TObject）;beginWebBrowser1.Align := alTop;WebBrowser1.Navigate（"http://del.cnblogs.com"）;end; {当页面打开完毕时获取 window 对象}procedure TForm1.WebBrowser1DocumentComplete（ASender: TObject;const pDisp: IDispatch; var URL: OleVariant）;beginif pDisp = （ASender as TWebBrowser）.Application thenbeginwindow := （（ASender as TWebBrowser）.Document as IHTMLDocument2）.parentWindow;end;end; end.