怎样设定Edit框只能输入浮点型？

Question

在ｄｅｌｐｈｉ中，怎样设定Edit框只能输入浮点型，如果是整形就转化为浮点型，如果是其他类型的就提示出错！在哪个事件里面设定啊！谢谢！！！！

Answer 1

从tedit继承一个组件
添加一个published类型的OnlyFloat
然后在write SetOnlyFloat的时候判断输入是否为float型
如果不是，就Raise一个异常,然后在主程序中扑捉
就可以了

Answer 2

最简单的方法，在离开焦点时，判断一下
procedure TForm1.Edit1Exit(Sender: TObject);
begin
   try
     StrToFloat((Sender as TEdit).text);
   except
     showmessage('不是浮点类型');
   end;
end;

Answer 3

嗯，我一般也都是用wudi_1982(︻┳═一酒可千日不饮，但不可一饮不醉) 说的这种方法

Answer 4

wudi_1982(︻┳═一酒可千日不饮，但不可一饮不醉) 的方法我试过了,功能可以实现!