Текущий архив: 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.012 c