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中轻松实现tidftp的断点续传

Delphi android adb usb上读取设备信息

Delphi 掌控pagecontrol中的右上方的左右箭头事件

tstrings 的用法

Delphi2009 使用 png 图片

Delphi 通过wmi获取u盘硬件特征码

Delphi package

Delphi memo1 字符串快速查找定位2

Delphi 如何在程序中动态设置墙纸（使用iactivedesktop接口）

Delphi 文件查找findfirst,findnext,findclose

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