Как отловить правый Enter (NumPad) |
Previous Top Next |
Для этого можно воспользоваться функцией GetHeapStatus:
Code: |
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; |
©Drkb::01535
DelphiWorld 6.0