Заходит в лифт программист и вспоминает что ему надо попасть на 12-ый этаж. Что делать? Ну, нажимает он "1", потом нажимает "2" и начинает судорожно искать кнопку "ENTER"
Для этого можно воспользоваться функцией GetHeapStatus:
procedure TForm1.WMKeyDown(varmessage: TWMKeyDown);
begininherited;
casemessage.CharCode of
VK_RETURN:
beginif (message.KeyData and $1000000 <> 0) thenbegin{ ENTER on numeric keypad }endelsebegin{ ENTER on the standard keyboard }end;
end;
end;
end;
Статья Как отловить правый Enter (NumPad) раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.