Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как отловить правый Enter (NumPad)?

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

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;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru