Вверх ↑
Этот топик читают: Гость
Ответов: 9
Рейтинг: 0
#1: 2006-11-25 20:59:49 ЛС | профиль | цитата
доброго времени суток!
Понадобилось отловить нажатие клавиши F5 (для реализации обновления содержимого компонента Browser) - не нашел код (. Есть только коды на буквенно-цифровые, пробел, enter, всякие Alt-ы...
Кто-нибуть обходил эту траблу?
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 1891
Рейтинг: 110
#2: 2006-11-25 21:03:47 ЛС | профиль | цитата
Смотри компонент KeyHook
Add(WebBrowser,7942145,322,77)
{
Left=10
Top=95
Width=370
Height=160
}
Add(KeyHook,7422400,126,84)
{
link(onKeyDown,13764830:doText,[])
}
Add(Edit,13764830,196,84)
{
Left=10
Top=65
link(onChange,4316010:doCompare,[])
}
Add(If_else,4316010,259,84)
{
Op2=String(116)
link(onTrue,7942145:doRefresh,[(345,90)(317,90)])
link(Op1,13764830:Text,[(265,74)(244,74)(244,126)(202,126)])
}
карма: 0
%time%
0
Ответов: 8926
Рейтинг: 823
#3: 2006-11-25 21:44:57 ЛС | профиль | цитата
Andrew, (F1 - F12) = (112 - 123)
code_636
карма: 19

0
файлы: 1code_636.txt [502B] [596]
Ответов: 9
Рейтинг: 0
#4: 2006-11-25 23:07:18 ЛС | профиль | цитата
То, что надо. Спасибо.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 899
Рейтинг: 43
#5: 2006-11-26 00:21:44 ЛС | профиль | цитата
Леонид, А так не проще?
Add(KeyHook,10018595,224,224)
{
link(onKeyDown,129889:doText,[])
}
Add(Label,129889,287,224)
{
Left=125
Top=80
Width=4
Height=4
Font=[MS Sans Serif,24,0,0,1]
Caption=""
}
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 8926
Рейтинг: 823
#6: 2006-11-26 10:08:29 ЛС | профиль | цитата
unalex, проще, конечно, но этот элемент нуждается в библиотеке, я стараюсь его не применять.
карма: 19

0
Ответов: 3851
Рейтинг: 159
#7: 2006-11-26 18:48:07 ЛС | профиль | цитата
KeyHook мне тоже не нравится. Как-то давно (версия~157) он просто закрывал мою прогу в момент, когда я нажимаю ту самую клавишу, а прога чем-то напряжённо занята. Не помню, наверное даже на форум не выкладывал это траблу - просто использую Keyboard
карма: 0
начавший
0
Ответов: 632
Рейтинг: 16
#8: 2006-11-28 03:38:12 ЛС | профиль | цитата
а почему мэйн форм непосылает код нажатой клавиши?
карма: 0

0
Ответов: 9906
Рейтинг: 351
#9: 2006-11-28 09:01:39 ЛС | профиль | цитата
1) Потому-что MainForm-у их не посылает винда
2) У меня посылает
карма: 9

0
Ответов: 8926
Рейтинг: 823
#10: 2006-11-28 10:40:01 ЛС | профиль | цитата
Galkov, Geka, я это положение интерпретирую (для себя) так: если на форме находятся элементы управления, то курсор не может быть установлен на форме и, соответственно, форма не выдаёт этих кодов. А если курсор установить на форме, то сигналы с этих точек можно получить
Add(MainForm,4414685,21,105)
{
Left=20
Top=105
Point(onDblClick)
link(onKeyUp,3593633:doAdd,[])
link(onDblClick,12816168:doClear,[])
}
Add(StrList,3593633,140,126)
{
}
Add(Memory,12816168,70,140)
{
Default=String(C:Test.txt)
link(onData,3593633:doSave,[(121,146)(121,167)])
}
карма: 19

0
Ответов: 9906
Рейтинг: 351
#11: 2006-11-28 11:51:29 ЛС | профиль | цитата
А никак я не интерпретирую, получаю - и все
карма: 9

0
Ответов: 8926
Рейтинг: 823
#12: 2006-11-28 13:27:25 ЛС | профиль | цитата
Galkov, да так было и будет - среди равных всегда имеются более равные
карма: 19

0
Ответов: 9906
Рейтинг: 351
#13: 2006-11-28 13:30:58 ЛС | профиль | цитата
У меня алиби:
http://hiasm.hexshock.com/xf/topic.php?p=28263#P28263
http://hiasm.hexshock.com/xf/topic.php?t=6105&start=0
карма: 9

0
Ответов: 9906
Рейтинг: 351
#14: 2006-11-29 23:13:54 ЛС | профиль | цитата
Кстати говоря, недавно увидел, что сегодняшнее состояние системных файлов таково, что если я выложу два своих файла: hiMainForm.pas и Win.pas, то в противоречие с остальными они вступать не должны.
Вроде бы...

Так, что если НЕ любители KeyHook желают потестировать - выложу, нет проблем. А появятся - разберемся
карма: 9

0
Разработчик
Ответов: 26149
Рейтинг: 2127
#15: 2006-11-29 23:21:23 ЛС | профиль | цитата
Galkov, можно поискать на SVN, или где?
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)