Программная прокрутка TWebBrowser

[Tack]

Здравствуйте.
Delphi 6. VCL.
Подскажите, как можно программно плавно прокрутить содержимое странички, загруженной в TWebBrowser?

И можно как-нибудь из программы определить, прокручен ли HTML-документ до самой нижней строки?

Спасибо.

 

[Vagor.ini]

Tack

ПРокрутка по одному шагу на одно нажатие кнопки, ну думаю переделаешь на автомат
// ВВерх
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, -100);
end;

// Влево
procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(-100, 0);
end;

// Вниз
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, +100);
end;

// Вправо
procedure TForm1.Button4Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(+100, 0);
end;

И можно как-нибудь из программы определить, прокручен ли HTML-документ до самой нижней строки?

На вскидку не знаю, но наверное можно...

 

[Tack]

Vagor.ini, спасибо!