Delphi中判斷WebBrowser的頁面是否加載完成 《轉》

方法一：

   在WebBrowser的OnDocumentComplete事件書寫代碼。

方法二：

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