Как отловить правый 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