Про Caps, Scroll и Num

← →
liho26 (2002-06-24 07:51) [0]

Как определить триггер кравиш и вывести все это в статусбар? Например, если горит индикатор NumLock, то в статусбаре отображается слово "Num". Соответственно с капсом и скролом. Если не трудно, опубликуйте код
-------------------------
С уважением

← →
Юрий Зотов (2002-06-24 09:03) [1]

if GetKeyState(VK_NUMLOCK) and 1 = 1
then StatusBar1.Panels[3].Text := "NUM"
else StatusBar1.Panels[3].Text := "";

Аналогично с VK_SCROLL и VK_CAPITAL. Сажайте все это, например, в обработчик Application.OnIdle (пример есть в хелпе).

← →
Александр Емелин (2002-06-24 09:30) [2]

Вообще-то, для этого перехватывается обработчик клавиатуры.
Хороший пример в DFSStatusPanel (он где-то есть в кладовке),
там как-раз реализована строка статуса с отображением NumLock, CapsLock и т.д.

← →
Proton (2002-06-24 10:32) [3]

Народ да ведь только сегодня подобный вопрос поднимался.
:)
Сделай лучше по таймеру
дешево и сердито.
А то юзверь включит клавишу в другом окошке - оппа а ты об этом ни че не знаеш..
А чтоб абсолютно все нажатия перехватывать нужен хук + dll. Сложно больно.

---
Ну и конечно можно на OnActivate + хук только на свой процесс (тогда без Dll).

← →
liho26 (2002-06-24 10:51) [4]

Юрий, спасибо. Александр, обязательно сейчас посмотрю. Пусть в моем запасе будет еще и этот пример. Proton, ну ты и дал...! :) Мне не надо перехватывать что-то в других окнах. У меня SDI и только в нем надо это делать. Тем не менее - спасибо :)

Про Caps, Scroll и Num Найти похожие ветки