@@##$$送分了!! 怎么限制EDIT里只能输入数字!原来好像有人说过,不过我忘记了!谁知道告诉我一下,或者给个以前这个贴子的连接!(10分)

送分了!! 怎么限制EDIT里只能输入数字!原来好像有人说过,
不过我忘记了!谁知道告诉我一下,
或者给个以前这个贴子的连接!谢谢!

在onKeyPress事件中：
if key not (in ['0'..'9']) then
begin
showmessage('请输入数字') ;
key='';
end;

////////////////////////////////////////////////////////////////////////////////
// //
// 限制sender控件里只能输入0~9的数字 //
// //
////////////////////////////////////////////////////////////////////////////////
procedure MaskEditToInteger(Sender:Tobject; var Key: Char);
begin
if ((Key<'0')or(Key>'9'))and(Key<>#8) then Key := #0;
end;

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1394885

多人接受答案了。

用maskedit

if not (key in['0'..'9', '.', #8, #27, #13]) then
key := #0;//只能为数字

sorry,不是我原创
是：rookie_ron 的