1、组件设置，直接设定NumbersOnly为true;
2、用触发事件代码限定TEdit只能录入数据类型
//----------------------------------------------------------------
//在组件里选择键盘事件KeyPress,查了一下ASCll表由于是0到9字符几个字符,和外加Backspace(8)和负号(45),就可以进行判定了.
//-----------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if ((Key>'9'||Key<'0')&&Key!=8&&Key!=45) //只能输入0-9的数字和回车键和负整数
Key=0;
}
//如果要判定首位不为0,臭虫建议在Exit事件上加判断,以下为臭虫的代码:
//Press事件：
// if(Key>=0x30&&Key<=0x39||Key==8)
// Key=Key;
// else
// Key=0;
