delphi webbrowser1 判断完成

while webbrowser1.busy then Application.ProcessMessages; while webbrowser1.ReadyState READYSTATE_COMPLETE do Application.ProcessMessages; 加载完成 webbrowser1.Navigate('www.163.com');