ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / KeyDown в Web Browser
5 сообщений из 5, страница 1 из 1
KeyDown в Web Browser
    #39142403
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
В окне имеется объект MS Web Browser. Когда фокус находится в нем нужно перехватить нажатие на Escape.
Каким макаром?
...
Рейтинг: 0 / 0
05.01.2016, 15:54
| Ответить | Цитировать | Написать  
KeyDown в Web Browser
    #39142667
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
Riska ,
тоже когда-то искал решение для похожева случая, но так и не получилось.
Может еще это пригодится.

P.S. для меня этот вопрос ещё актуален. Если будут результаты, прошу поделится :)
...
Рейтинг: 0 / 0
06.01.2016, 12:32
| Ответить | Цитировать | Написать  
KeyDown в Web Browser
    #39149596
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
AIS,
Делюсь.

На окне есть кнопка cb_return, которая закрывает ole и открывает DW на его месте. Короче, делает те действия, которые мы хотим получить при нажатии на Esc.

В ole_WebBrowser есть событие "commandstatechange". Оно срабатывает на все телодвижения. В нем пишем:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
any 	la_any_object
string ls_active

IF IsValid(This.Object.Document) THEN
	la_any_object = This.Object.Document.activeElement
	ls_active = string(la_any_object)
	IF Pos(ls_active, 'Input') > 0 THEN
		// Ничего... Происходит удаление текста в поле ввода
	ELSE
		cb_return.SetFocus()
	END IF
END IF



В самом окне в событии "key" пишем:
Код: sql
1.
2.
3.
4.
5.
6.
IF key = KeyEscape! THEN
   IF ole_WebBrowser.Visible THEN
	cb_return.Event clicked()
	RETURN
   END IF
END IF
...
Рейтинг: 0 / 0
18.01.2016, 13:40
| Ответить | Цитировать | Написать  
KeyDown в Web Browser
    #39149709
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
Riska ,
хотя это и не прямое решение, а эмуляция события, но думаю, что пригодится. Спасибо.
...
Рейтинг: 0 / 0
18.01.2016, 14:42
| Ответить | Цитировать | Написать  
KeyDown в Web Browser
    #39160250
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Дополнение.
В предыдущем примере перестает работать колесо мышки, когда мы находимся над ole_WebBrowser.
Вот это решает проблему (событие "other" на окне):
Код: sql
1.
2.
3.
4.
5.
6.
CHOOSE CASE Message.Number
   CASE 522 //WM_MOUSEWHEEL
  	IF ole_google_search.Visible THEN
		ole_google_search.SetFocus()
	END IF
END CHOOSE
...
Рейтинг: 0 / 0
01.02.2016, 14:46
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / KeyDown в Web Browser
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&gotonew=1&tid=1335216]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 11ms
get first new msg:
 7ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 12ms
total:  151ms
созд. / загр.: 151ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]