Для этого можно воспользоваться функцией 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;
Автор статьи Full описывает способ отловки правого Enter (NumPad) на компьютере с помощью функции GetHeapStatus и изменения в обработчике события WMKeyDown.
