判断Webbrowser是否加载完成

 

http://blog.csdn.net/dropme/article/details/6296926

判断Webbrowser是否加载完成

分类： Delphi（原创） Delphi（转帖）2011-04-02 09:35 1410人阅读 评论(0) 收藏 举报

webbrowserurl

 

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;