怎样限制TEdit框只能输入数字？

[wilsonloveada]

高手求救，怎样限制TEdit框只能输入数字或只能输入英文大小写字母?

[98ly]

可以在TEdit中的KeyPress事件中进行处理.
1、若只能输入字母则处理
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if(((Key<=64))||((Key>=32)&&(Key<=47))||((Key>=91)&&(Key<=96))||(Key>=123))
{
Key=0;
return;
}
}
2、若只能输入数字

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if(((Key<=47)||(Key>=58)))
{
Key=0;
return;
}
}
经过程序验证过，应该没问题。

[Nomad_man]

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

}

[happyct]

问了几百遍的问题了，随便查一下一堆

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


方法二：

引用：：
老生常谈的问题，用上面的方法也可以，但如果你的窗体上有多个要求只能输入数据的EDIT，那要为每个EDIT都写一个OnKeyPress事件，那样岂不是太麻烦了，还是做一个只能输入的EDIT的控件吧：
class TMyEdit:public TEdit
{
private:
protected:
virtual void __fastcall CreateParams(TCreateParams Params);
};
.cpp File
void __fastcall TMyEdit::CreateParams(TCreateParams Params)
{
TEdit::CreateParams(Params);
Params.Style|=ES_NUMBER;
}
方法三：
SetWindowLong(Edit1->Handle,GWL_STYLE,GetWindowLong(Edit1->Handle,GWL_STYLE)|ES_NUMBER) ;

[danny800301]

为什么不用maskedit呢？

[UFOBH]

void __fastcall TInformationEditForm::Edit11KeyPress(TObject *Sender,
char &Key)
{
if(!((Key<='9'&&Key>='0')||(Key==VK_BACK)||(Key==VK_DELETE)||(Key==VK_SNAPSHOT)))
{
Key=NULL;
}
}

[nance224]

在KEYPRESS事件内
if((Key<'0'||Key>'9') && Key!=VK_BACK && Key!=VK_DELETE&&Key!='.')
Key=0;