Текущий архив: 2003.02.06;
Скачать: CL | DM;
Вниз
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]Универсальный ответ - пройдись трассировкой по процедуре и найди место, где вылетаешь, а то непонятно, что у тебя не работает.
Страницы: 1 вся ветка
Текущий архив: 2003.02.06;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.019 c
