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 将tbitmap与tgpimage转换

Delphi获取硬件信息

Delphi jsondataobjects

Delphi 18位身份证号码的校验

Delphi通过将数据放入exe的资源信息中的方式制作自已的安装工具

Delphi unigui执行程序部署有3种形式

Delphi xe6通过wifiapi得到wifi信息

Delphi xe10.1 andriod app中文名称

Delphi 使窗口透明，并透过透明的窗口操作下面的窗口

Delphi 系统托盘 trayicon

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

转载请注明出处：木庄网络博客 » delphi edit中只能输入数字并且只能输入一个小数点