Как грамотно обработать событие OnProgressChange у WebBrowser а?

← →
Дмитрий К.К. (2002-11-04 18:25) [0]

Делаю таким образом:

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
Progressbar1.Max := Progressmax;
Progressbar1.Position := Progress;
end;

Однако периодически выскакивает ошибка "Invalid floating point operation" :(
Как с ней биться?

← →
Дмитрий К.К. (2002-11-05 16:28) [1]

Up!

← →
Андрей Прокофьев © (2002-11-05 16:35) [2]

Progress indicates how much of the document has already been downloaded, on a scale of 0 to ProgressMax. When Progress is –1, the operation is finished.

← →
Андрей Прокофьев © (2002-11-05 16:35) [3]

Tip: To calculate the percentage of progress to show in a progress indicator (when Progress is not –1), multiply the value of Progress by 100 and divide by the value of ProgressMax.

2Андрей Прокофьев

Спасибо, Ваша справка очень помогла :)

Как грамотно обработать событие OnProgressChange у WebBrowser а? Найти похожие ветки