delphi键盘码,键盘响应

《delphi键盘码,键盘响应》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Delphi键盘码,键盘响应Delphi键盘码,键盘响应用法：ifkey=chr(VK_RETURN)then...常数名称十六进制值十进制值对应按键VK_LBUTTON011鼠标的左键VK_RBUTTON022鼠标的右键VK-CANCEL033Ctrl+Break(通常不需要处理)VK_MBUTTON044鼠标的中键（三按键鼠标)VK_BACK088Backspace键VK_TAB099Tab键VK_CLEAR0C12Clear键（NumLock关闭时的数字键盘5）VK_RETURN0D13Enter键VK_SHIFT1016Shift键VK_CONTROL1117Ct

2、rl键VK_MENU1218Alt键VK_PAUSE1319Pause键VK_CAPITAL1420CapsLock键VK_ESCAPE1B27Ese键VK_SPACE2032Spacebar键VK_PRIOR2133PageUp键VK_NEXT2234PageDomw键VK_END2335End键VK_HOME2436Home键VK_LEFT2537LEFTARROW键(←)VK_UP2638UPARROW键(↑)VK_RIGHT2739RIGHTARROW键(→)VK_DOWN2840DOWNARROW键(↓)VK_Select2941Select键VK_PRINT2

3、A42VK_EXECUTE2B43EXECUTE键VK_SNAPSHOT2C44PrintScreen键（抓屏）VK_Insert2D45Ins键(NumLock关闭时的数字键盘0)VK_Delete2E46Del键(NumLock关闭时的数字键盘.)VK_HELP2F47Help键VK_030480键VK_131491键VK_232502键VK_333513键VK_434524键VK_535535键VK_636546键VK_737557键VK_838568键VK_939579键VK_A4165A键VK_B4266B键VK_C4367C键VK_D4468D键VK_E456

4、9E键VK_F4670F键VK_G4771G键VK_H4872H键VK_I4973I键VK_J4A74J键VK_K4B75K键VK_L4C76L键VK_M4D77M键VK_N4E78N键VK_O4F79O键VK_P5080P键VK_Q5181Q键VK_R5282R键VK_S5383S键VK_T5484T键VK_U5585U键VK_V5686V键VK_W5787W键VK_X5888X键VK_Y5989Y键VK_Z5A90Z键VK_NUMPAD06096数字键0键VK_NUMPAD16197数字键1键VK_NUMPAD26298数字键2键VK_NUMPAD36299数字键3键

5、VK_NUMPAD464100数字键4键VK_NUMPAD565101数字键5键VK_NUMPAD666102数字键6键VK_NUMPAD767103数字键7键VK_NUMPAD868104数字键8键VK_NUMPAD969105数字键9键VK_MULTIPLY6A106数字键盘上的*键VK_ADD6B107数字键盘上的+键VK_SEPARATOR6C108Separator键VK_SUBTRACT6D109数字键盘上的-键VK_DECIMAL6E110数字键盘上的.键VK_DIVIDE6F111数字键盘上的/键VK_F170112F1键VK_F271113F2键VK_F

6、372114F3键VK_F473115F4键VK_F574116F5键VK_F675117F6键VK_F776118F7键VK_F877119F8键VK_F978120F9键VK_F1079121F10键VK_F117A122F11键VK_F127B123F12键VK_NUMLOCK90144NumLock键VK_SCROLL91145ScrollLock键上面没有提到的：（都在大键盘）VK_LWIN91左win键VK_RWIN92右win键VK_APPS93右Ctrl左边键，点击相当于点击鼠标右键，会弹出快捷菜单186;(分号)187=键188,键(逗号)189-键(减

7、号)190.键(句号)191/键192`键(Esc下面)219[键220键221]键222'键(引号)procedureTForm1.Edit1KeyDown(Sender:TObject;varKey:Word;Shift:TShiftState);beginifkey=VK_DELETEthenkey:=0;end;Delphi6.0,2000下通过Top于在keydown中屏蔽掉除数字外的所有键还应该允许Ctr+C/X/V，所以总结起来应该是：procedureTForm1.Edit1KeyPress(Sender:T