delphi edit中只能输入数字并且只能输入一个小数点


本文整理自网络,侵删。

 edit中只能输入数字并且只能输入一个小数点
在edit的keypress事件加入如下代码即可
if not (key in ['0'..'9','.']) then //只能输入数字及小数点,还想控制只让输入什么,自己在[]中自己填加
key:=#0;
if (key=’.') and (Pos(‘.’,Edit1.Text)>0) then //如果输入的是小数点,并且前面已有小数点就不让输入了
key:=#0;

相关阅读 >>

Delphi case of

Delphi 模拟按键的一些误解

Delphi unigui中cookies使用中文汉字的方法

Delphi xe10.x 快捷失灵解决办法

Delphi 读取文本文件的最后一行

Delphi excel数据导入数据库表

Delphi xe10 手机程序事件服务操作、退出键操作

Delphi datetimetogmt gmt时间与tdatetime转换

Delphi 获取打开的记事本中的内容

Delphi 中的md5实现方法及Delphi2009和Delphi2010中用法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...