本文整理自网络,侵删。
edit中只能输入数字并且只能输入一个小数点
在edit的keypress事件加入如下代码即可
if not (key in ['0'..'9','.']) then //只能输入数字及小数点,还想控制只让输入什么,自己在[]中自己填加
key:=#0;
if (key=’.') and (Pos(‘.’,Edit1.Text)>0) then //如果输入的是小数点,并且前面已有小数点就不让输入了
key:=#0;
相关阅读 >>
Delphi xe datasnap服务器获取客户端ip地址
Delphi webbrowser选中文本操作 设置webbrowser的内容
Delphi tadodataset 加载数据到fdmemtable1
Delphi用twebbrowser组件在Delphi中post数据和取得网页源文件
Delphi firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试
更多相关阅读请进入《Delphi》频道 >>