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 的 tstringbuilder 可以完美实现jave ,c#的tstringbuilder功能

Delphi图片上写水印文字函数

Delphi 创建一个大小不可改变的窗体,通用模板

Delphi 查找目录下文件（多文件查找）

关于Delphi下的三元运算符（三目运算）

Delphi 实现英汉字典的转换

Delphi 通过api 隐藏任务栏所有托盘图标

Delphi通过ip或机器名获取局域网mac地址

Delphi fdmemtable1 清空

Delphi 匿名管道

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

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