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

Материал из DRKB

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

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


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;


Author: Full ( http://full.hotmail.ru/ )
Source: Взято из http://forum.sources.ru
ID: 01513
ID: 01535