edit中只能输入数字、小数点(只可以1个小数点)和负号+多个edit共用一个事件
2011-04-01 22:32
309 查看
原来的代码无法限制只输入一个小数点
begin
case Key of
'0'..'9', #8, #13,#45, #27, '.' : ; //#8退格键,#13回车键
//可输入0-9,退格,回车,点以及负号
else
begin
MessageBox(0, '请输入数值!', '输入错误', MB_OK+MB_ICONERROR);
Key := #0;
end;
end;
end;
限制只输入一个小数点:
上面这段代码只能在edit1中应用,如果想将该事件应用到多个edit上,可做如下修改:(其他事件同理)
begin
case Key of
'0'..'9', #8, #13,#45, #27, '.' : ; //#8退格键,#13回车键
//可输入0-9,退格,回车,点以及负号
else
begin
MessageBox(0, '请输入数值!', '输入错误', MB_OK+MB_ICONERROR);
Key := #0;
end;
end;
end;
限制只输入一个小数点:
在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 |
if not (key in ['0'..'9','.',#8]) then key:=#0; if (key='.') and (Pos('.',TEdit(Sender).Text>0) then key:=#0; |
相关文章推荐
- edit中只能输入数字、小数点(只可以1个小数点)和负号+多个edit共用一个事件
- edit中只能输入数字、小数点(只可以1个小数点)和负号+多个edit共用一个事件
- 执行这些代码, Edit1只能输入数字,小数点和负号,负号和小数点只能输入一个,负号必须在最前,粘贴的数字必须完全正确.
- SetEditOnePoint() 使Edit控件中只能输入数字和1个小数点
- edit编辑框只能输入数字和一个小数点
- 只能输入数字只能有一个小数点,小数点不能在开头,不能在结尾,第一位允许添加负号
- edit中只能输入数字并且只能输入一个小数点
- MFC控件edit封装,只能输入数字、负号、小数点
- Delphi-Edit中只能输入数字且只能输入一个小数点
- JS只能输入数字一个小数点可输入负号
- js实例:验证只能输入数字和一个小数点
- 限制只能输入数字、负号、小数点。支持退格删除
- javascript 验证 只能输入数字和一个小数点
- winform的textbox中只能输入数字和一个小数点
- 输入框中只能输入数字,小数点,负号
- 完美实现控制文本框只能输入(包括键入和粘贴)数字和至多一个小数点
- 让html的text输入框只能输入数字和1个小数点(0-59之间可改)
- javascript验证只能输入数字和一个小数点示例
- js限制input只能输入有效的数字,有且只有一个小数点,第一个不能为小数点
- Android EditText设置只能输入数字和小数点