delphi中的key值

 

对key的值含义列举出来以加深记忆：

在onKenDown里边；
key= 13    //   回车键；
key= 9    // Tab键;   
如果在OnKenPress中，应该；
Key = #13
Key = #9;  

 

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;  

 

 

if not(Key in['0'..'9',#8]) then
begin
    key:= #0; //空值
    MessageDlg('請輸入數字',mtError,mbOKCancel,0);
    //MessageBeep(-1);
end;