15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как отловить правый Enter (NumPad)

Автор: Full  ( http://full.hotmail.ru/ )

Для этого можно воспользоваться функцией 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;

Источник: www.proext.com