WebBrowser как узнать что страница полностью догрузилась

[Comer_Jus]

выполняю

WebBrowser1.Navigate( LabeledEdit1.Text )

необходимо определить что страница полностью догрузилась
и продолжить далее

какое свойство WebBrowser нужно проверить?

[Dux]

Помещаем на форму компонент TProgressBar и TStatusBar. Для корректного отображения информации в StatusBar при загрузке страниц, необходимо в обработчике событий OnStatusTextChange компонента WebBrowser записать следующее:

 procedure TForm1.WebBrowser1StatusTextChange(ASender: TObject;
const Text: WideString);
begin
StatusBar1.SimpleText:=Text; {свойство SimplePanel должно быть установлено в True}
end;

Для отображения прогресса загрузки в ProgressBar, нужно в обработчике событий OnProgressChange компонента WebBrowser записать следующий код:

    
procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress,
ProgressMax: Integer);
begin
  Progressbar1.Max:=progressmax;
  Progressbar1.Position:=progress;
end;

[Квэнди]

для реакции на окончание загрузки страницы существует событие onnavigatecomplite2

[Comer_Jus]

БОЛЬШОЕ СПАСИБО!

[Teen4jump]

onnavigatecomplite2 вроде срабатывает раньше... когда подгрузились первые данные... юзай лучше OnDocumentComplete..

[vbilez]

юзаю свойство readystate
WebBrowser1.ReadyState=4;(страница загружена)

[Mifody]

Эх, человеки. Маялся я с этим вебраузером, может у меня и руки не оттуда растут, но...
onnavigatecomplite2, ReadyState -давали погрешность на некоторых сайтах процентов эдак в 30-40 (в смысле не верно определяли, говорили что Ок, а страница еще грузится).
Единственное что спасло:

repeat
try
txt := weebrowser1.innertext;
finally
end;
until (WebBrowser1.ReadyState=4) and (pos('<tag>', txt));

(Написал сразу сюда, скорее всего есть ошибка)
Такая конструкция снизила отказы процентов до 10-15, тока все равно сильно косячила. Были ситуации, когда у меня все работало на ура, а у заказчика со сбоями.