| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Прокрутка для WebBrowser

Krants ©   (2007-02-06 18:30:00) 

Использую таким образом:
SendMessage(WebBrowser.Handle, WM_VSCROLL, 1, 0);
Для других компонентов работает а для WebBrowser нет, как можно иначе осуществить прокрутку?

---

palva   (2007-02-07 15:51:00) [1]

uses MSHTML;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('about:a<BR>b<BR>c<BR>d<BR>e<BR>f<BR>' +
 'g<BR>h<BR>i<BR>j<BR>k<BR>l<BR>');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ((WebBrowser1.Document as IHTMLDocument2).body as HTMLBody).scrollTop := 30;
end;


---

palva   (2007-02-07 15:24:00) [2]

document.body.scrollTop = <количество пикселей от верха документа до верха окна>
document.body.scrollLeft аналогично.

---

Наверх