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

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

TWebBrowser - прокрутка [D6, D7, WinXP]

Vovanchik ©   (2006-04-03 00:02:00) 

У меня броузер используется как приложение для принятия сообщений! Я просто в конец добавляю html код! вот кода страница становится больше рабочего окна появляется скрол ! терь сам вопрос...Как мне управлять скролом или хотябы простто всегда спускаться в конец страницы?

---

Vovanchik   (2006-04-18 02:02:00) [1]

ПРокрутка по одному шагу на одно нажатие кнопки, ну думаю переделаешь на автомат
// ВВерх
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;

---

ZeFiR   (2006-04-03 18:34:00) [2]

используй javascript
делай функцию с любым названием
document.location(документ+'#любое имя');
в теге body пишешь onload="имя_функции()"
в месте, которое нужно отобразить <a name="то_имя_которое_использовал_в_функции_после_знака_#"></a>
для этого способа нужно использовать протоколо res:// (ищи на DelphiWorld)

---

Наверх