请问如何使得Edit框里只允许输入数字？

Question

在VC里轻松实现，但在Delphi里我就不知道怎么弄了。或者可有这种函数？拜托帮忙，谢谢

Answer 1

在keypress事件中帖加
if key in ['0'..'9'] then
;
else
key:=#0;

Answer 2

这个是可以的，但是怎么才能做成一个控件呢？
如其中有一个属性，为true时可以输入小数。为False时不可以输入小数。

Answer 3

在keypress事件中帖加
if key in ['0'..'9'] then
;
else
key:=#0;
这个是比较简单的方法，不过有漏洞。就是用户要是把数据复制上去就没办法了。还有方法就是一个一个比，这样麻烦，
最好的方法是用maskedit组件

Answer 4

onkeypress中添加
if not (key in ['0'..'9',#8,#13]) then
key:=#0;
onexit中添加
try 
strtoint(edit1.text);
except
showmessage('error');
edit1.setfocus;//忘了怎么写了
end;这样应该没什么问题了吧，嘿嘿

Answer 5

输入小数只用EDIT是比较麻烦的
还是使用第三方的控件吧

Answer 6

是说只取textedit中的数字捏？还是按数字的时候没有反映啊？

Answer 7

onkeypress中添加
if not (key in ['0'..'9',#8,#13]) then
key:=#0;

Answer 8

用MaskEdit组件了，它是最适合最这个的