Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Scroll в WebBrowser...

Автор: -Snake_B- 28.07.2007 2:21

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

Автор: -Snake_B- 28.07.2007 2:49

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

Автор: volvo 28.07.2007 3:40

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

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

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


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

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

Автор: Гость 28.07.2007 3:54

Цитата(volvo @ 27.07.2007 23:40) *

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


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

Автор: volvo 28.07.2007 5:15

Хм... На самом деле все проще. Вот так определяется позиция 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;