скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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




Автор: Full

Заходит в лифт программист и вспоминает что ему надо попасть на 12-ый этаж. Что делать? Ну, нажимает он "1", потом нажимает "2" и начинает судорожно искать кнопку "ENTER"

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


procedure TForm1.WMKeyDown(var message: TWMKeyDown);
begin
  inherited;
  case message.CharCode of
    VK_RETURN:
    begin
      if (message.KeyData and $1000000 <> 0) then
      begin
        { ENTER on numeric keypad }
      end
      else
      begin
        { ENTER on the standard keyboard }
      end;
    end;
  end;
end;






Copyright © 2004-2018 "Delphi Sources". Delphi World FAQ


Clever Internet Suite

Интернет-компоненты Clever Internet Suite — набор компонентов для Delphi/C++Builder, позволяющих реализовать обмен данными по сети в вашем приложении. С помощью Clever Internet Suite вы можете реализовать различные функции для работы в сети интернет: скачивание файлов, отправка данных, введенных пользователем, рассылка и получение почты, использовать клиенты HTTP, FTP, SMTP, POP3, IMAP и NNTP; серверы SMTP, POP3, IMAP и FTP и многое другое.



Группа ВКонтакте   Facebook   Ссылка на Twitter