怎么让我的Edit里面只输入数字(30分)

xp166 · 2002-12-10

怎么让我的Edit里面只输入数字，有好办法吗？

qianwt · 2002-12-10

在Edit的OnKeyPress事件中
if not (key in ['0'..'9'] then
key := #0;

lanbing1400 · 2002-12-10

if not (key in ['0'..'9'，#8] then
key := #0;

#8为了可以删除

这种问题以前很多了，下次问时记得先搜索一下原来的帖子

xp166 · 2002-12-10

搜索很不稳定，老出错，要是能查到就不问了

问题多28 · 2002-12-10

是数字吗? 可以设置文本格式有这个属性的

laohe · 2002-12-10

在onKeyPress事件里写
if not (key in['0'..'9']) and(key <>#8) then//数字和退格以外的建，一律为空
key:=#0;

xp166 · 2002-12-10

多人接受答案了。

popewh · 2002-12-10

控件tmsEdit，很好用的