不用MaskEdit控件，如何使键盘输入限定为数字？

[lidelu]

总觉得MaskEditi控件用起来不太美观
它硬要多个下划线_，而且光标和字符位置定死了

想用Edit控件
当按下非字母键的时候，可以用 Beep() 来发声
可是我不知道怎么把非法的键退回键盘缓冲
就像 C 语言的 ungetc() 函数一样，使得输入的字符无效

[fatwave]

if(Key<48 || Key>57)
{
if(D == 0)
{
if(Key != 8)
{
Key = 0;
}
}
else
{
if(Key != 8 || Key != 46)
{
Key = 0;
}
}
}

[fatwave]

void __fastcall TDLLfrm_HNDB::edtMeterKeyPress(TObject *Sender, char &Key)

[ccrun.com]

类似帖子太多了.

2. 1-怎样使Edit文本框只接受数字、减号和小数点呢？ http://expert.csdn.net/Expert/topic/1398/1398593.xml
3. 2-怎么验证Edit只能输入数字？ http://expert.csdn.net/Expert/topic/1456/1456298.xml
4. 3-怎样在EDIT控件中限定只能输入数字！！！！！ http://expert.csdn.net/Expert/topic/1648/1648759.xml
5. 4-如何保证edit里只能输入数字？ http://expert.csdn.net/Expert/topic/1696/1696365.xml
6. 5-怎样限定Edit框里面只能输入数字 http://expert.csdn.net/Expert/topic/1768/1768938.xml
7. 6-请问如何在Edit中只输入数字，不输入字符，如果非数字出示错误信息？ http://expert.csdn.net/Expert/topic/1774/1774529.xml
8. 7-奇怪~~我在KeyPress可以做到在Edit中只输入数字,为什么在KeyDown就不可以阿? http://expert.csdn.net/Expert/topic/1788/1788561.xml
9. 8-如何实现当在一个Edit框中输入非数字字符时弹出一个Form提示应输入数字 http://expert.csdn.net/Expert/topic/1861/1861567.xml
10. 9-请各位高手帮忙！在Edit框中输入非数字型系统提示的问题 http://expert.csdn.net/Expert/topic/1937/1937464.xml
11. 10-普通的edit控件如何实现屏蔽字母键，而只有数字键可以输入？ http://expert.csdn.net/Expert/topic/2050/2050575.xml

[Micowen989]

void __fastcall TForm1::Edit1OnKeyPress(TObject *Sender, char &Key)
{
AnsiString InputKey = Key;
AnsiString ValidKey = AnsiString("0123456789.");
if (ValidKey.Pos(InputKey) == 0) {
Key = 0;
}
}

[yjy1001]

上面的方法都很好~！

[huangjuliang]

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if(!isdigit(Key))
Key = 0;

}

这样就可以了!
建议问这些问题之前先找一下以前的贴子!

[qiu_allan]

是的，这是一个老问题了。