Delphi键盘码.doc

用法：if key = chr(VK_RETURN) then.常数名称 十六进制值 十进制值 对应按键VK_LBUTTON 01 1 鼠标的左键VK_RBUTTON 02 2 鼠标的右键VK-CANCEL 03 3 Ctrl+Break(通常不需要处理)VK_MBUTTON 04 4 鼠标的中键（三按键鼠标)VK_BACK 08 8 Backspace键VK_TAB 09 9 Tab键VK_CLEAR 0C 12 Clear键（Num Lock关闭时的数字键盘5）VK_RETURN 0D 13 Enter键VK_SHIFT 10 16 Shift键VK_CONTROL 11 17 Ctrl键VK_MENU 12 18 Alt键VK_PAUSE 13 19 Pause键VK_CAPITAL 14 20 Caps Lock键VK_ESCAPE 1B 27 Ese键VK_SPACE 20 32 Spacebar键VK_PRIOR 21 33 Page Up键VK_NEXT 22 34 Page Domw键VK_END 23 35 End键VK_HOME 24 36 Home键VK_LEFT 25 37 LEFT ARROW 键()VK_UP 26 38 UP ARROW键()VK_RIGHT 27 39 RIGHT ARROW键()VK_DOWN 28 40 DOWN ARROW键()VK_Select 29 41 Select键VK_PRINT 2A 42 VK_EXECUTE 2B 43 EXECUTE键VK_SNAPSHOT 2C 44 Print Screen键（抓屏）VK_Insert 2D 45 Ins键(Num Lock关闭时的数字键盘0)VK_Delete 2E 46 Del键(Num Lock关闭时的数字键盘.)VK_HELP 2F 47 Help键VK_0 30 48 0键VK_1 31 49 1键VK_2 32 50 2键VK_3 33 51 3键VK_4 34 52 4键VK_5 35 53 5键VK_6 36 54 6键VK_7 37 55 7键VK_8 38 56 8键VK_9 39 57 9键VK_A 41 65 A键VK_B 42 66 B键VK_C 43 67 C键VK_D 44 68 D键VK_E 45 69 E键VK_F 46 70 F键VK_G 47 71 G键VK_H 48 72 H键VK_I 49 73 I键VK_J 4A 74 J键VK_K 4B 75 K键VK_L 4C 76 L键VK_M 4D 77 M键VK_N 4E 78 N键VK_O 4F 79 O键VK_P 50 80 P键VK_Q 51 81 Q键VK_R 52 82 R键VK_S 53 83 S键VK_T 54 84 T键VK_U 55 85 U键VK_V 56 86 V键VK_W 57 87 W键VK_X 58 88 X键VK_Y 59 89 Y键VK_Z 5A 90 Z键VK_NUMPAD0 60 96 数字键0键VK_NUMPAD1 61 97 数字键1键VK_NUMPAD2 62 98 数字键2键VK_NUMPAD3 62 99 数字键3键VK_NUMPAD4 64 100 数字键4键VK_NUMPAD5 65 101 数字键5键VK_NUMPAD6 66 102 数字键6键VK_NUMPAD7 67 103 数字键7键VK_NUMPAD8 68 104 数字键8键VK_NUMPAD9 69 105 数字键9键VK_MULTIPLY 6A 106 数字键盘上的*键VK_ADD 6B 107 数字键盘上的+键VK_SEPARATOR 6C 108 Separator键VK_SUBTRACT 6D 109 数字键盘上的-键VK_DECIMAL 6E 110 数字键盘上的.键VK_DIVIDE 6F 111 数字键盘上的/键VK_F1 70 112 F1键VK_F2 71 113 F2键VK_F3 72 114 F3键VK_F4 73 115 F4键VK_F5 74 116 F5键VK_F6 75 117 F6键VK_F7 76 118 F7键VK_F8 77 119 F8键VK_F9 78 120 F9键VK_F10 79 121 F10键VK_F11 7A 122 F11键VK_F12 7B 123 F12键VK_NUMLOCK 90 144 Num Lock 键VK_SCROLL 91 145 Scroll Lock键上面没有提到的：（都在大键盘） VK_LWIN 91 左win键VK_RWIN 92 右win键VK_APPS 93 右Ctrl左边键，点击相当于点击鼠标右键，会弹出快捷菜单186 ;(分号)187 =键188 ,键(逗号)189 -键(减号)190 .键(句号)191 /键192 键(Esc下面)219 键220 /键221 键222 键(引号)procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=VK_DELETE then key:=0; end; Delphi6.0,2000下通过Top于在keydown中屏蔽掉除数字外的所有键还应该允许Ctr+C/X/V，所以总结起来应该是： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in 0.9, #3, #22, #24, #8, #13, #45) then Key := #0; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (key#57) and (key#48) then key:=#0; end; 我想你最好将你的例程写出来。 如果是像CKEN阁下说的那样，你要将按键事件屏蔽的话，实际上应该是直接赋值： Key:=0; (注意不是Key:=#0,因为这里的Key是Word类型,在keypress事件中,key的值是Char型，就要用“#”) Good luck在KeyDown里面就可以实现 if key=vk_numpad0 then （如果为小键盘的0键就干你想干的事情） 下面是小键盘的值 VK_NUMPAD0 0 key (numeric keypad) VK_NUMPAD1 1 key (numeric keypad) VK_NUMPAD2 2 key (numeric keypad) VK_NUMPAD3 3 key (numeric keypad) VK_NUMPAD4 4 key (numeric keypad) VK_NUMPAD5 5 key (numeric keypad) VK_NUMPAD6 6 key (numeric keypad) VK_NUMPAD7 7 key (numeric keypad) VK_NUMPAD8 8 key (numeric keypad) VK_NUMPAD9 9 key (numeric keypad) VK_MULTIPLY Multiply key (numeric keypad) VK_ADD Add key (numeric keypad)