прогресс загрузки страници

← →
syte_ser78 (2004-01-31 12:45) [0]

сак создать сабж для компонента TWebBrowser?

← →
Ihor Osov'yak (2004-01-31 13:02) [1]

TWebBrowser.OnProgressChange:

procedure TMainForm.WBProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);

← →
syte_ser78 (2004-01-31 14:06) [2]

Извини, можно подробнее?...

← →
Ihor Osov'yak (2004-01-31 14:28) [3]

бросаешь компонент на форму (TWebBrowser), щелкаешь по нему мышкой, жмешь Ф11 (то бишь просишь инспектор обьектов перед твоим взором появится),
жмешь на закладку Events в вышеупомянутом инспекторе, находишь обработчик
OnProgressChange, жмякаешь там два раза мишью, в окне редактирования исходного кода появляется что-то наподобие

procedure TForm1.WBProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin

end;

Этот обработчик будет вызываться довольно часто по мере загрузки страницы.
Progress, ProgressMax - содержат инфу о степени загрузки (ProgressMax - макс. значение, Progress - текущее). Используя эти значения - управляй соотв. пропертями своего прогрессбара....

Зы - или еще рассказать, как прогрессбар на форму бросить? Не, не буду - хотя бы потому, что иногда желательно читать книжки самому.. Толку от этого больше..

Зы2. Progress, ProgressMax - МS иногда их творчески меняет, не факт, что ProgressMax всегда постоянным будет - это также нужно учитывать.. Хотя, если хорошо подумать - то вряд-ли в общем случае более "не творчески" там можно сделать, чем мс это сделало..

← →
syte_ser78 (2004-01-31 14:49) [4]

> Ihor Osov"yak ©

Спасибо огромное!

> Зы - или еще рассказать, как прогрессбар на форму бросить?

Не, не надо :)

← →
Manulo (2004-01-31 19:05) [5]

> Не, не надо :)

Хорошо подумай, я его впервые таким отзывчивым вижу ;)

← →
Ihor Osov'yak (2004-01-31 19:59) [6]

2 [5] Manulo © (31.01.04 19:05)

Есть очень простая закономерность - каков привет, таков ответ. Или как говорили в пору моей молодости - нечего на паяльник кивать, коли руки кривы.

прогресс загрузки страници Найти похожие ветки