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生成的webservice appdebug的程序，编译时出错

Delphi 临时文件路径（支持安卓、ios）

Delphi idtcp下载文件

Delphi webbrowser获取iframe页面内容

Delphi感染文件的例子

Delphi实现线程池组件（完整源码）

Delphi 如何替换word文档中的文本

Delphi 网上获取北京时间 tinifile.readsection 方法在 android 下的应用及各种字符编码问题

Delphi windows 根据进程名结束进程的代码

Delphi 权限控制(Delphi tactionlist方案)

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