怎样让 Tedit 控件只能输入数字。

[Luckyfeeling]

在 onkeydown 事件里面，我应当对 key 赋什么
才能屏蔽掉其他字符。

[steps]

在onkeypress里加处理
if not (key in ['0'..'9']) then key := #0;

[enlightenment]

onKeyPress

if Key in ['0'..'9','.',#8,#13] then
begin
//
end;

[enlightenment]

Sorry !反了！

if not Key in ['0'..'9','.',#27{ESC},#8{退格},#13{回车}] then
begin
//
end;

[airhorse]

用tmaskedit，

MaskEdit1.EditMask := '!\(999\)000-0000;1';
MaskEdit1.Text = '';
MaskEdit1.AutoSelect := False;

[Luckyfeeling]

谢谢各位帮忙，马上结分！