简单一问,迅速给分7

Question

请问如何限制用户向TEdit控件中输入非数字型字符??
  即,我需要实现一个只能输入数字的TEdit!

Answer 1

if not (key in ['0'..'9',#8]) then
begin
key:=#0;
end;
..................................
**********************************************
*等我有钱了，我就站在天安门广场挨个给大家发钱*
**********************************************

Answer 2

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

Answer 3

好象不行吧。
用户可以用拷贝+粘贴的方式向EDIT中加入非数字的字符。
因此，还得禁用鼠标右键。

Answer 4

是吗？不行吗？你设置EditMask了没有？
把EditMask设置为 00000000看看你还可以粘贴进什么？

Answer 5

在KEYPRESS中判断..或者设置EDITMASK
但其实有个问题的..
如果用户用CTRL+C然后用CTRL+V进行输入..呵呵..那就无效了.
这个问题以前我看过一个好贴子有讨论的..很复杂.甚至改到VCL源码..
但一般情况下用户不太会用这种情况操作..
那就够用了..