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

http://delphiworld.narod.ru/

DelphiWorld 6.0