DelphiCode - WEBBROWSER - СОЗДАЕМ ProgressBar и StatusBar

WEBBROWSER - СОЗДАЕМ ProgressBar и StatusBar

Помещаем на форму компонент TWebBrowser (вкладка Internet)

и 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;

Delphicode.org

04.06.2008