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

Previous  Top  Next

    
 

 

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

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

 

 

©Drkb::01513

Взято из http://forum.sources.ru