控制输入小数

procedure TfrmLoginPass.txtStuNoKeyPress(Sender: TObject; var Key: Char);
if not (key in ['0'..'9','.',#8,#13]) then
    key:=#0;//只能输入0到9的数字和退格键,delete键.
  if (key='.') and (Pos('.',Edit1.Text)>0)   then
    key:=#0;//只能输入一个小数点.

if (key = '0') and ((Trim(cxTextEdit1.Text)='0') or (Trim(cxTextEdit1.Text)='')) then
    key:=#0;//第一个数字不能是0,且不能输入多个0.
end;


if not (key in ['0'..'9',#13,#8,#46]) then

key := #0;



procedure TfrmLoginPass.txtStuNoKeyPress(Sender: TObject; var Key: Char);
begin
  inherited; //限制只能输入数字
  if not (Key in ['0'..'9', #8]) then
    Key := #0;
end;