vk_LButton  = $01;
vk_RButton  = $02;
vk_Cancel    = $03;
vk_MButton  = $04;  { NOT contiguous with L & RBUTTON }
vk_Back      = $08;
vk_Tab      = $09;
vk_Clear    = $0C;
vk_Return    = $0D;
vk_Shift    = $10;
vk_Control  = $11;
vk_Menu      = $12;
vk_Pause    = $13;
vk_Capital  = $14;
vk_Escape    = $1B;
vk_Space    = $20;
vk_Prior    = $21;
vk_Next      = $22;
vk_End      = $23;
vk_Home      = $24;
vk_Left      = $25;
vk_Up        = $26;
vk_Right    = $27;
vk_Down      = $28;
vk_Select    = $29;
vk_Print    = $2A;
vk_Execute  = $2B;
vk_SnapShot  = $2C;
vk_Copy      = $2C not used by keyboards }
vk_Insert    = $2D;
vk_Delete    = $2E;
vk_Help      = $2F;
vk_A thru vk_Z are the same as their ASCII equivalents: 'A' thru 'Z' }
vk_0 thru vk_9 are the same as their ASCII equivalents: '0' thru '9' }
vk_NumPad0  = $60;
vk_NumPad1  = $61;
vk_NumPad2  = $62;
vk_NumPad3  = $63;
vk_NumPad4  = $64;
vk_NumPad5  = $65;
vk_NumPad6  = $66;
vk_NumPad7  = $67;
vk_NumPad8  = $68;
vk_NumPad9  = $69;
vk_Multiply  = $6A;
vk_Add      = $6B;
vk_Separator = $6C;
vk_Subtract  = $6D;
vk_Decimal  = $6E;
vk_Divide    = $6F;
vk_F1        = $70;
vk_F2        = $71;
vk_F3        = $72;
vk_F4        = $73;
vk_F5        = $74;
vk_F6        = $75;
vk_F7        = $76;
vk_F8        = $77;
vk_F9        = $78;
vk_F10      = $79;
vk_F11      = $7A;
vk_F12      = $7B;
vk_F13      = $7C;
vk_F14      = $7D;
vk_F15      = $7E;
vk_F16      = $7F;
vk_F17      = $80;
vk_F18      = $81;
vk_F19      = $82;
vk_F20      = $83;
vk_F21      = $84;
vk_F22      = $85;
vk_F23      = $86;
vk_F24      = $87;
vk_NumLock  = $90;
vk_Scroll    = $91;

解决方案 »

  1.   

    留下e-mail ,我以前做了个程序,专门检测按键vkeycode,包括 wParam && lParam
      

  2.   

    to:nne998
    能给我一个吗?我对vkey不熟悉
    [email protected]
    先谢了
      

  3.   

    nne998我想要一个我的E-MAIL:
       [email protected]
      

  4.   

    我也想要一份。
    [email protected]
    谢谢了!!
      

  5.   

    给我瞧瞧好吗?
    [email protected]
      

  6.   

    我也想要
    谢谢 : [email protected]
      

  7.   

    能给我一份吗?Thanks!
    [email protected]
      

  8.   

    测试键盘的值procedure form1onkeydown ()
    begin
      showmessage('按键的值为'+inttostr(key));
    end
    你运行程序后,按下任一键,便可促发此事件得到其键值!