判断WebBrowser是否加载完成.
摘要:
FirstpDisp:IDispatch;//全局变量;ChkOpen,ChkOk:Boolean;//全局变量;FirstpDisp:=nil;//浏览URL之前赋nil;procedureTForm1.FormCreate(Sender:TObject);beginChkOpen:=true;ChkOk:=false;end;procedureTForm1.WebBrowser1BeforeNavigate2(Sender:TObject;constpDisp:IDispatch;varURL,Flags,TargetFrameName,PostData,Headers:OleVarian 阅读全文
posted @ 2011-10-26 11:41 jxgxy 阅读(374) 评论(0) 推荐(0) 编辑