procedure
TForm1.Edt_NumKeyPress(Sender: TObject;
var
Key: Char);
begin
If
not
(key
in
[#
48
..#
57
])
then
begin
key:
=
#
0
;
ShowMessage(
'
只能输入数字
'
);
end
end
;
刚遇到这个问题就发上来了 这个".."真好用啊
记住在你的edit编辑框里面在KeyPress里面加入代码哦!
转载于:https://www.cnblogs.com/rogee/archive/2010/09/20/1832022.html
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)