Советы по delphi \ Система \ Клавиши \ Как отловить правый Enter (NumPad)

---

Для этого можно воспользоваться функцией 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;

Название: Как отловить правый Enter (NumPad)
Дата публикации: 2004-06-17 (2647 Прочтено)