• 主页

各位大虾，帮忙看一下一个简单的delphi 问题，小妹谢过！

jia5420 2005-03-21 11:38:18
帮忙看一下这个语句意思是什么，实现什么功能？谢谢

if Not (Key in [Chr(VK_LBUTTON)..Chr(VK_HELP),'0'..'9']) then
Key := Chr(0);
...全文
66 点赞 收藏 4
写回复
4 条回复
jia5420 2005年03月21日
谢谢好心人回复，不过小妹还是有点不明白
Chr(VK_LBUTTON)..Chr(VK_HELP),'0'..'9' 是键盘上所有的键吗，key=0是表示什么了？整个语句的功能是屏蔽掉所有的按键吗？
 回复 点赞
火猴 2005年03月21日
一般在keydown事件里面， key是参数， key表示用户按下的键盘键值， in运算判断key在不在Key in [Chr(VK_LBUTTON)..Chr(VK_HELP),'0'..'9']范围内， 如果在就让key＝0

目的：屏蔽用户按键
 回复 点赞
jia5420 2005年03月21日
谢谢两位好心人！
 回复 点赞
pooplin 2005年03月21日
不是键盘上所有的键,是0到9,
VK_LBUTTON
VK_RBUTTON
VK_CANCELVK_MBUTTON
VK_BACK
VK_TAB
VK_CLEAR Clear key
VK_RETURN
VK_SHIFT
VK_CONTROL
VK_MENU
VK_PAUSE
VK_CAPITAL
VK_KANA
VK_HANGUL
VK_JUNJA
VK_FINAL
VK_HANJA
VK_KANJI
VK_CONVERT

VK_NONCONVERT
VK_ACCEPT
VK_MODECHANGE
VK_ESCAPE
VK_SPACE
VK_PRIOR
VK_NEXT
VK_END
VK_HOME
VK_LEFT
VK_UP
VK_RIGHT
VK_DOWN
VK_SELECT
VK_PRINT
VK_EXECUTE
VK_SNAPSHOT
VK_INSERT
VK_DELETE
VK_HELP这些键
key=0表示如果按的不上面的这些,按键就失效
 回复 点赞
发动态
发帖子
非技术区
创建于2007-08-02

588

社区成员

5.4w+

社区内容

Delphi 非技术区
社区公告
暂无公告