Как отловить правый 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

Автор статьи Full описывает способ отловки правого Enter (NumPad) на компьютере с помощью функции GetHeapStatus и изменения в обработчике события WMKeyDown.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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

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

Время компиляции файла: 2024-08-19 13:29:56
2024-11-21 11:34:30/0.0043880939483643/1