HotKey?

← →
Un-man (2006-04-29 12:04) [0]

Я не нашел аналога THotKey контрола в KOL. Есть ли реализация под KOL & MCK?

← →
ECM © (2006-05-02 22:44) [1]

Теперь есть :)
http://www.kolnmck.ru//files/components/controls/kolhotkey.zip
15538 байт
Мне лично данный контрол ни разу в жизни применять не довелось...
Но раз он есть в Win32 то реализовать его на KOL - несложно ..:)
Я сделал его ИМХО более "нативным" по сравнению с VCL. Честно говоря не понял почему в VCL объединили понятие текущего Modifier для HOTKEY и Default Modifier для RULES. Никаих намеков на это в MSDN нет. Поэтому я их оставил независимыми... Может я чего то недопонял - пожалуйста поправьте.

← →
rainstuff (2006-08-14 21:21) [2]

Решил попробовать эту компоненту...
и никак не могу разобрался - как там получить код Modifier"a?

Можно, конечно, извратиться и сделать так:
var
code: integer;
key: byte;
modifier: integer;
begin
key:=Hotkey1.Hotkey;
code:=Hotkey1.Hotkey;
modifier:=code-key;
end;

Но может есть более грамотный способ?...
Думал, что пишется в Hotkey1.Hotkey1.ShortCut.Modifier , но оказалось, что нет...

← →
rainstuff (2006-08-14 21:57) [3]

Хотя, наверное, правильнее будет так:
modifier:=Byte(code shr 8);

Но тогда другой вопрос, почему при <Ctrl>+<Insert> у <Ctrl> другой modifier получается?...

← →
rainstuff (2006-08-15 13:26) [4]

Поскольку ответов нет, то сделал так.. вроде работает:)

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;

HotKey? Найти похожие ветки