Scroll в WebBrowser..., Считывание значения... Опции

[-Snake_B-]

Как узнать значения горизонтального/вертикального скролла в WebBrowser'e?

[-Snake_B-]

А ну и ещё... как узнать размеры самого webBrowser'а (~)... ну для того чтобы можно было сдвинуть его в крайние положения например...

[volvo]

для того чтобы можно было сдвинуть его в крайние положения например...

Для этого достаточно сделать следующее:

// Передвигаем скроллбар до упора вниз:
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0,WebBrowser1.OleObject.Document.Body.ScrollHeight);

// ... и теперь - вверх:
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0,-WebBrowser1.OleObject.Document.Body.ScrollHeight);

(влево/вправо - аналогично...)

А вот с определением текущей позиции скроллбара - сложнее, надо с интерфейсами заморачиваться...

[Гость]

А вот с определением текущей позиции скроллбара - сложнее, надо с интерфейсами заморачиваться...

а можно подробнее... ну очень нуна...

[volvo]

Хм... На самом деле все проще. Вот так определяется позиция ScrollBar-а на WebBrowser-е:

procedure TForm1.Button1Click(Sender: TObject);
var pnt: TPoint;
begin
  pnt.X := Webbrowser1.OleObject.Document.Body.ScrollLeft;
  pnt.Y := Webbrowser1.OleObject.Document.Body.ScrollTop;

  ShowMessage(Format('Left: %d, Top: %d', [pnt.X, pnt.Y]));
end;