Delphi中判断WebBrowser的页面是否加载完成 《转》

方法一：

   在WebBrowser的OnDocumentComplete事件书写代码。

方法二：

WebBrowser1.Navigate(Url);
while WebBrowser1.Busy  or (WebBrowser1.ReadyState<>READYSTATE_COMPLETE) do
  Application.ProcessMessages;