TWebBrowser - прокрутка

← →
Vovanchik (2006-04-03 00:02) [0]

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

← →
ZeFiR © (2006-04-03 18:34) [1]

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

← →
Vovanchik (2006-04-18 02:02) [2]

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

TWebBrowser - прокрутка Найти похожие ветки