Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как отловить правый Enter (NumPad)?

Delphi , ОС и Железо , Клавиши

Как отловить правый Enter (NumPad)?

Автор: Full ( http://full.hotmail.ru/ )

Для этого можно воспользоваться функцией GetHeapStatus:

Code:

procedure TForm1.WMKeyDown(var Message: TWMKeyDown);
begin
inherited;
case Message.CharCode of
   VK_RETURN:
     begin // ENTER pressed
       if (Message.KeyData and $1000000 <> 0) then
         begin
                 { ENTER on numeric keypad }
         end
       else
         begin
                 { ENTER on the standard keyboard }
         end;
     end;
end;
end;
Взято из http://forum.sources.ru

Статья Как отловить правый Enter (NumPad)? раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Клавиши ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 00:19:57/0.0041608810424805/2