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

  • Автор темы Tack
  • Дата начала
Статус
Закрыто для дальнейших ответов.
T

Tack

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

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

Спасибо.
 
V

Vagor.ini

Гость
#2
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-документ до самой нижней строки?
На вскидку не знаю, но наверное можно...
 
Статус
Закрыто для дальнейших ответов.