Caps и Insert со товарищи

← →
Бук (2003-01-27 09:47) [0]

Блин, чей-то я затормозил совсем. Помогайте, парни. Как отловить нажатие Caps, Insert и Num и соответсвенно выдать сообщение, например, Label1.Caption. Заранее спасибо.

← →
VFP (2003-01-27 10:09) [1]

Используй событие OnKeyUp или OnKeyDown на форме, свойство KeyPreview у форме поставь в истину.

В событии OnKeyUp или OnKeyDown пишешь

if key=Key_CapsLock then begin действия; end;

← →
PavelOKES (2003-01-27 10:14) [2]

А когда-то, во времена asma, порты читали... Эх, молодежь...

← →
Бук (2003-01-27 10:17) [3]

Это понятно. Мне надо на Messages. Все дело в том, что мое приложение не содержит элементов, позволяющих вводить или редактировать текст. Я имею ввиду RichEdit или Edit. Поэтому надо отлавливать messages.

Такая конструкция не работает почему-то.

Procedure TForm1.GetKey (var msg: TMessages); begin if msg.msg = WM_KEYDOWN then if GetKeyState(VK_INSERT)=1 then что-то.... else что-то .... end;
Понять не могу почему и где ошибка.

← →
PavelOKES (2003-01-27 10:29) [4]

Универсальный ответ - пройдись трассировкой по процедуре и найди место, где вылетаешь, а то непонятно, что у тебя не работает.

Caps и Insert со товарищи Найти похожие ветки