50分寻求如何在Edit中只能输入数字的程序。

Question

如题。
谢谢各位大虾！

Answer 1

在OnKeyPrss中写如下代码：
if not (key in ['0'..'9', #8]) then
  Key := #0;

Answer 2

改用TMaskEdit，设定EditMask为99999

Answer 3

帅哥，这招是有漏洞的哦，............................可以通过复制粘贴进去.......网上有这样的控件下载，我现在有的是RightEdit

Answer 4

To chechy(简简单单的活)
还应该考虑'.','-','+',光标键..吧

Answer 5

我觉得的TOMWLD(笑天)的方法比较好！

Answer 6

专业的话来说：子类化（我也不知道^_^）
有一个方法，只是我想的，不知道可不可以？
try
strtoint(edit1.text);
except
showmessage('ERRor');
Edit1.text:='';
end;
其实 chechy(简简单单的活)的方法已经很标准了！

Answer 7

chechy(简简单单的活)的方法非常好。
if not (key in ['0'..'9', #8]) then
  Key := #0;
如何修改此程序可以让其能输入数字和小数字"."呢？
非常感谢！

Answer 8

我太菜了
if key=#13 then showmessage('ok')
   else
   if not (key in ['0'..'9','.',#8]) then key:=#0
就可以了

Answer 9

在 edit keypress 中写
if ((key<'0')and (key>'9')) then key='0'