怎么屏蔽小键盘的按键输入呢?(例如方向键、Delete键等。可用分太多了,散分!)在线等答! OnKeyPress中测key值 如果Key值是你要屏蔽的小键盘 则Key:=0 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 试试zyj320621(小朱) 的方法 用API涵数将小键盘都设为KEY=#0 OnKeyPress OnKeyDown里面都能够完成OnKeyDown先获得小键盘键值然后用case语句 Case Key of 1://这里用你得到的键值 2: 3: ..... 关于KEY的值可以转换成ASCII码后SHOW出来,然后来个NOT IN ...就OK了 在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)VK_SEPARATOR Separator key (numeric keypad)VK_SUBTRACT Subtract key (numeric keypad)VK_DECIMAL Decimal key (numeric keypad)VK_DIVIDE Divide key (numeric keypad) 多任务定时执行,如果提高效率? Delphi用webservice 抖动的窗体? 请问:哪位高手知道如何画史密斯圆图?? 急用各位帮帮忙。。 求助:在做一个演示程序,请问怎样能够失键盘失效 关于一个简单控件的实现 delphi调试问题 使用ADOConnection及ADOQuery怎样开始一个事务,回滚一个事务 怎样把字符数组类型转换成字符型,s:=ss[0] 紧急求助:请问有什么办法能使得ADOTable取出的记录以每次显示10条的形式分页显示~~~! 写excel文件的问题
OnKeyDown
先获得小键盘键值
然后用case语句
Case Key of
1://这里用你得到的键值
2:
3:
.....
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)
VK_SEPARATOR Separator key (numeric keypad)
VK_SUBTRACT Subtract key (numeric keypad)
VK_DECIMAL Decimal key (numeric keypad)
VK_DIVIDE Divide key (numeric keypad)