限制edit只能输入数字和小数点,需要绑定在onkeypress事件中
if(Key=='。')
{
Key=='.';
}
if((Key<='9'&&Key>='0')||Key==0x08||Key=='.')
{
if( RzEdit1->Text.ToDouble()==0&&Key=='0')
{
Key=0;
}
if( RzEdit1->Text.Pos(".")>0 && Key=='.')
{
Key = 0;
}
}
else
{
Key=0;
}