在回车键事件中加入:
if not (key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '.', #8, #13]) then
key := char(0); //key:=char(' ');//#8是回退键,#13是回车键
即可限定数字输入。
本文介绍了一种在编程中限制用户仅能输入数字的方法。通过检查键盘输入事件,如果用户按下的是数字键或者是小数点和回车键,则允许输入;其他按键则被忽略。
在回车键事件中加入:
if not (key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '.', #8, #13]) then
key := char(0); //key:=char(' ');//#8是回退键,#13是回车键
即可限定数字输入。
282

被折叠的 条评论
为什么被折叠?