Прокрутка TWebBrowser с помощью стрелок клавиатуры

[Dennis777]

Подскажите пожалуйста, как можно реализовать прокрутку страницы в веббраузере делфи по нажатию на стрелки вверх-вниз?

[doktor255]

Передай фокус контролу

WebBrowser1.SetFocus;

И прокрутка заработает.

[blackstrip]

По нажатию на клавиши надо вызывать

webBrowser1.OleObject.Document.ParentWindow.ScrollBy(X,Y)

, где X и Y - количество пикселей, проматываемых по соответствующей оси. Также в X и Y можно задавать отрицательные значения чтоб промотать обратно.

[doktor255]

Сообщение от blackstrip

По нажатию на клавиши надо вызывать

webBrowser1.OleObject.Document.ParentWindow.ScrollBy(X,Y)

, где X и Y - количество пикселей, проматываемых по соответствующей оси. Также в X и Y можно задавать отрицательные значения чтоб промотать обратно.

Куда можно встроить такой код, или что включить, чтоб сразу после нажатия некой кнопки, которая загрузит страницу браузера, не используя иных экранных кнопок листать браузер стрелочками на клавиатуре?

[Dennis777]

Кнопками прокручивается, но колесико активируется только после клика на веббраузер. Как можно назначить прокрутку и колесику?

Фокус не хочет передаваться)

[doktor255]

Сообщение от Dennis777

Фокус не хочет передаваться

Как это не хочет передаваться? Если кликнуть на кнопку, в которой будет код Browser1.SetFocus, то при последующий кликах на клавиши вверх вниз браузер скролится.

[blackstrip]

Сообщение от doktor255

Куда можно встроить такой код, или что включить, чтоб сразу после нажатия некой кнопки, которая загрузит страницу браузера, не используя иных экранных кнопок листать браузер стрелочками на клавиатуре?

Ну можно вставить его в обработку таймера (вызывающегося раз в 100 мс, например), и опрашивающего клавиатурные стрелочки, например, через GetAsyncKeyState

[doktor255]

Сообщение от blackstrip

Ну можно вставить его в обработку таймера (вызывающегося раз в 100 мс, например), и опрашивающего клавиатурные стрелочки, например, через GetAsyncKeyState

Костыль. Не айс.

[Dennis777]

Сообщение от doktor255

Как это не хочет передаваться? Если кликнуть на кнопку, в которой будет код Browser1.SetFocus, то при последующий кликах на клавиши вверх вниз браузер скролится.

Ну видать у меня какой-то неправильный делфи и у него неправильный мед. На веббраузер фокус не передается такой командой. Это первое, что пробывал.

[blackstrip]

Сообщение от Dennis777

Ну видать у меня какой-то неправильный делфи и у него неправильный мед. На веббраузер фокус не передается такой командой. Это первое, что пробывал.

У веббраузера фокус стремный - он ненастоящий. Он в браузер не передается, но самое главное - обратно не вытаскивается. Т.е. если пользователь поставил курсор в каком нибудь поле на сайте (или даже просто нажал в пустое место на сайте), открытом в twebbrowser - то уже обратно перекинуть фокус на какую нибудь кнопку на форме командой setfocus не выйдет.

Я фокус у него смог вырвать только программным нажатием (mouse_event) на компонент на форме.

Возможно, фокус передается на некий виртуальный контейнер и нигде не показывается что он на браузере, а фокус на элементах сайта, открытого в twebbrowser - это уже другая фича от MS IE, которая жестко контролирует настоящий фокус и не дает ему убежать с twebbrowser-а никуда.