Как отловить правый Enter (NumPad)
Falk0ner, вс, 06/07/2008 - 15:34.
Как отловить правый Enter (NumPad) Для этого можно воспользоваться функцией GetHeapStatus:
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;
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;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий