在回车键事件中加入:
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是回车键
即可限定数字输入。