| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Caps и Insert со товарищи [D7, WinXP]
Бук © (2003-01-27 09:47:00)Блин, чей-то я затормозил совсем. Помогайте, парни. Как отловить нажатие Caps, Insert и Num и соответсвенно выдать сообщение, например, Label1.Caption. Заранее спасибо.
PavelOKES (2003-01-27 10:29:00) [1]Универсальный ответ - пройдись трассировкой по процедуре и найди место, где вылетаешь, а то непонятно, что у тебя не работает.
Бук (2003-01-27 10:17:00) [2]Это понятно. Мне надо на 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:14:00) [3]А когда-то, во времена asma, порты читали... Эх, молодежь...
VFP (2003-01-27 10:09:00) [4]Используй событие OnKeyUp или OnKeyDown на форме, свойство KeyPreview у форме поставь в истину.
В событии OnKeyUp или OnKeyDown пишешь
if key=Key_CapsLock then
begin
действия;
end;
| |
