Как отловить правый Enter (NumPad)? |
Previous Top Next |
Автор: 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; |
©Drkb::01513
Взято из http://forum.sources.ru