【结贴】TEdit输入控制**

LNMSACIC

现有个特殊需求，要控制Teidt输入只能输入数字，并且控制在小数点后一位，研究了很多方法，都没实现，特此请教！谢谢

atiger

没有好的方法，只能自己代码控制了

如果可以用字段来实现的话，那么可以用DataEdit来用作输入，对于仅仅输入数字和点，可以在字段的 有效输入字符 属性上定义为“0123456789.”，对于控制只能保留一位小数，那么可以定义一个 一位小数的数字类型的字段就可以了。

LNMSACIC

好的，结贴，谢谢，我自己试试

zfang

控制输入数字和小数点且保留一位小数位数的参考代码（对于右键复制粘贴请楼主自己想办法搞定）：
procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  with TEdit(Sender) do
  if (not ((key ='0') or (key='1') or (key ='2') or (key = '3')
     or (key = '4') or (key = '5') or (key = '6') or (key = '7') or
     (key = '8') or (key = '9') or (key = '.') or (key = #8)))
    or ((key = '.') and (StringUtils.pos('.',Text) <> 0))
    or ((key <> #8) and (StringUtils.pos('.',Text) <> 0)
        and (selstart + 1 > StringUtils.pos('.',Text))
        and (length(Text) - StringUtils.pos('.',text) = 1)) then
    key := #0;

end;

atiger

没有好的方法，只能自己代码控制了

如果可以用字段来实现的话，那么可以用DataEdit来用作输入，对于仅仅输入数字和点，可以在字段的 有效输入字符 属性上定义为“0123456789.”，对于控制只能保留一位小数，那么可以定义一个 一位小数的数字类型的字段就可以了。