edit中只能输入数字、小数点(只可以1个小数点)和负号+多个edit共用一个事件

在keypress事件加入如下代码即可 if not (key in ['0'..'9','.',#8]) then     key:=#0; if (key='.') and (Pos('.',Edit1.Text)>0)   then       key:=#0;       pos('.',edit1.text)得到的是 . 第一次在edit.text中出现的位置   因为只要edit1.text中有一个 .     返回值肯定大于0

 

上面这段代码只能在edit1中应用，如果想将该事件应用到多个edit上，可做如下修改：（其他事件同理）

if not (key in ['0'..'9','.',#8]) then     key:=#0; if (key='.') and (Pos('.',TEdit(Sender).Text>0)   then       key:=#0;