【Delphi（原创）|判断Webbrowser是否加载完成】var Form1: TForm1;
glpDisp: IDispatch = nil;
implementation {$R *.dfm} procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin if (glpDisp <> nil) and (glpDisp = pDisp) then begin glpDisp := nil;
Caption:= 'ok';
end;
end;
procedure TForm1.EmbeddedWB1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin if glpDisp = nil then glpDisp := pDisp;
end;
推荐阅读
- jQuery|jQuery使用手册(七)
- 网站建设|CSS仿淘宝首页导航条按钮布局效果
- C#-WinForm应用|webBrowser首次加载不能正确显示（）
- VB|用Webbrowser如何判断一个网页是否已100%打开
- JAVA|关于URL中带空格的问题