| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
HotKey? [Delphi, Windows]
Un-man © (2006-04-29 12:04:00)Я не нашел аналога THotKey контрола в KOL. Есть ли реализация под KOL & MCK?
rainstuff (2006-08-15 13:26:00) [1]Поскольку ответов нет, то сделал так.. вроде работает:)
var
code: byte;
mode: byte;
begin
code:=byte(Hotkey1.Hotkey); // код клавиши
mode:=byte(Hotkey1.Hotkey shr 8);//код доп. клавиши (Ctrl,Alt,Shift)
if (mode>8) then mode:=mode-8;
end;
rainstuff (2006-08-14 21:57:00) [2]Хотя, наверное, правильнее будет так:
modifier:=Byte(code shr 8);
Но тогда другой вопрос, почему при <Ctrl>+<Insert> у <Ctrl> другой modifier получается?...
rainstuff (2006-08-14 21:21:00) [3]Решил попробовать эту компоненту...
и никак не могу разобрался - как там получить код Modifier'a?
Можно, конечно, извратиться и сделать так:
var
code: integer;
key: byte;
modifier: integer;
begin
key:=Hotkey1.Hotkey;
code:=Hotkey1.Hotkey;
modifier:=code-key;
end;
Но может есть более грамотный способ?...
Думал, что пишется в Hotkey1.Hotkey1.ShortCut.Modifier , но оказалось, что нет...
ECM (2006-05-02 22:44:00) [4]Теперь есть :)
http://www.kolnmck.ru//files/components/controls/kolhotkey.zip
15538 байт
Мне лично данный контрол ни разу в жизни применять не довелось...
Но раз он есть в Win32 то реализовать его на KOL - несложно ..:)
Я сделал его ИМХО более "нативным" по сравнению с VCL. Честно говоря не понял почему в VCL объединили понятие текущего Modifier для HOTKEY и Default Modifier для RULES. Никаих намеков на это в MSDN нет. Поэтому я их оставил независимыми... Может я чего то недопонял - пожалуйста поправьте.
| |
