Как сделать анимацию загрузки страницы?

[dante333]

Всем привет.с тем что webbrowser перекрывает любой другой компонент я смирился.вопрос как мне сделать анимацию загрузки страницы? К какому событию привязать?

[Равиль Зарипов (ZuBy)]

Всем привет.с тем что webbrowser перекрывает любой другой компонент я смирился.вопрос как мне сделать анимацию загрузки страницы? К какому событию привязать?

какая анимация?

[dante333]

Ну например обычный Progressbar.то есть показать что то пользователю пока страница полностью не загрузится.Пробовал через процедуры OnDidStartLoad,OnDidFinishLoad (кажется так,извиняйте если ошибся).но что то не вышло.возможно где то накосячил сам.

Изменено 1 октября, 2015 пользователем dante333

[To_LED]

procedure TForm1.WebBrowser1DidFinishLoad(ASender: TObject);
begin
  Label3.Text := 'Загрузка завершена!';
end;

procedure TForm1.WebBrowser1DidStartLoad(ASender: TObject);
begin
  Label3.Text := 'Загрузка...';
end;

end.

[dante333]

Это я пробовал в первую очередь.анимация прекращается раньше чем страница отображается.