Заходит в лифт программист и вспоминает что ему надо попасть на 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;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как отловить правый Enter (NumPad)", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!