управление скролом в WebBrowser - Общие вопросы Delphi

MyLastHit · 21.08.2010, 14:41

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

Думал вот эта мессага подойдет. Ан нет...

Код:

SendMessage(webbrowser1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);

подскажите пожалуйста как осуществить задуманное?..

DIgorevich · 21.08.2010, 14:50

Как-то так:

Код:

  WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, +100);

Первое число в скобках - горизонталь ("-" левее "+" правее), аналогично второе число - вертикаль.

MyLastHit · 21.08.2010, 15:02

спасибо)
чтото у меня проблема...
Я в тот обработчик засунул?
procedure TForm1.WebBrowser1NavigateComplete2

просто браузер пару раз опустит скрол, а потом, если жать на кнопку, браузер стоит на месте(хотя загружаемая страница уже стала больше).

DIgorevich · 21.08.2010, 15:03

На какую кнопку? и что в коде кнопки?

MyLastHit · 21.08.2010, 15:09

в коде кнопки просто навигат.

Цель, дать кнопке такое свойство в онклике:
Загрузить страницу и Опустить скрол с нижнее положение. Загрузить страницу то я могу, а скрол как опустить?(обработчик только Онклик)

DIgorevich · 21.08.2010, 15:14

Тебе сначала надо дождаться загрузки страницы. Ставь мой код в обработке события OnDocumentComplete

MyLastHit · 21.08.2010, 15:21

аналогично. перве раз 5 все ок, а потом скрол зависает на половине

DIgorevich · 21.08.2010, 15:22

Лучше универсально:

Код:

     webBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, webBrowser1.OleObject.height);

И еще имей ввиду, что когда тестируешь из-под Делфи, страница заново НЕ загружается, а восстанавливается из кэша ИЕ.

MyLastHit · 21.08.2010, 18:39

Вот листинг, глянь...ну не получается сделать как надо!

Код:

var
  Form1: TForm1;
  Str:String;
  WWW:TStrings;
Begin
 WWW.Clear;

 Str:=Str+'<p  style="margin-top: 0; margin-bottom: -4px"><font face="Verdana" color="#FF0000"> </font><span lang="en-us"><font face="Verdana"  color="#FF0000" size="2" ><b>'+
             'Тег </b>'+'</p> </font></span>'+
             '<font face="Verdana" size="2">'+'<p  style="margin-top: 0; margin-bottom: -4px">'+memo1.Text+'</p>'+'</font>';
 WWW.Add('<html><head><meta http-equiv="Content-Language" content="ru"><meta http-equiv="Content-Type" content="text/html; charset=windows-1251"></head><body>');

 WWW.Add(Str);
 WWW.Add('</body></html>');
 WWW.SaveToFile(ExtractFileDir(Application.ExeName)+'\Index.htm');
 memo1.Text:='';
 WEBbrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\Index.htm');
end;

DIgorevich · 21.08.2010, 19:41

Что-то я слабо понимаю, что конкретно ты хочешь сделать....
Вначале хочешь прокрутку в конец организовать, а сейчас что не получается? Открыть созданную и сохраненную страницу?

21.08.2010, 14:41	#1
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	управление скролом в WebBrowser Здравствуйте. Хочу написать программу которая бы загружала сайт с указанного адреса и опускалась в самый низ страницы. Думал вот эта мессага подойдет. Ан нет... Код: `SendMessage(webbrowser1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);` подскажите пожалуйста как осуществить задуманное?.. Ненавижу быть как все, но люблю, чтобы все были как я.

21.08.2010, 14:50	#2
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	Как-то так: Код: `WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, +100);` Первое число в скобках - горизонталь ("-" левее "+" правее), аналогично второе число - вертикаль. Никогда не знаешь, где тебе повезет... (Фрай)

21.08.2010, 15:02	#3
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	спасибо) чтото у меня проблема... Я в тот обработчик засунул? procedure TForm1.WebBrowser1NavigateComplete2 просто браузер пару раз опустит скрол, а потом, если жать на кнопку, браузер стоит на месте(хотя загружаемая страница уже стала больше). Ненавижу быть как все, но люблю, чтобы все были как я.

21.08.2010, 15:03	#4
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	На какую кнопку? и что в коде кнопки? Никогда не знаешь, где тебе повезет... (Фрай)

21.08.2010, 15:09	#5
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	в коде кнопки просто навигат. Цель, дать кнопке такое свойство в онклике: Загрузить страницу и Опустить скрол с нижнее положение. Загрузить страницу то я могу, а скрол как опустить?(обработчик только Онклик) Ненавижу быть как все, но люблю, чтобы все были как я.

21.08.2010, 15:14	#6
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	Тебе сначала надо дождаться загрузки страницы. Ставь мой код в обработке события OnDocumentComplete Никогда не знаешь, где тебе повезет... (Фрай)

21.08.2010, 15:21	#7
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	аналогично. перве раз 5 все ок, а потом скрол зависает на половине Ненавижу быть как все, но люблю, чтобы все были как я.

21.08.2010, 15:22	#8
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	Лучше универсально: Код: `webBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, webBrowser1.OleObject.height);` И еще имей ввиду, что когда тестируешь из-под Делфи, страница заново НЕ загружается, а восстанавливается из кэша ИЕ. Никогда не знаешь, где тебе повезет... (Фрай) Последний раз редактировалось DIgorevich; 21.08.2010 в 15:30.

21.08.2010, 19:41	#10
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	Что-то я слабо понимаю, что конкретно ты хочешь сделать.... Вначале хочешь прокрутку в конец организовать, а сейчас что не получается? Открыть созданную и сохраненную страницу? Никогда не знаешь, где тебе повезет... (Фрай)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Управление процессами	An123	Помощь студентам	2	18.12.2009 23:14
Смена данных в ячейках, скролом	valerij	Microsoft Office Excel	6	05.12.2009 15:24
Управление с клавиатуры	kpishnik	Помощь студентам	10	27.07.2008 18:38
Управление голосом	L0gic	Общие вопросы Delphi	13	13.10.2007 10:23
Помогите со скролом	Dude_first	Общие вопросы Delphi	1	11.09.2007 16:31