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 获取打开的记事本中的内容

Delphi 10.3.x与android 10兼容性的问题

Delphi 给字加边的又一个算法

Delphiwindows 下编译 exe 文件时把一个外部 txt 文件编译到 exe 里面

Delphi winapi: getnextwindow - 获取指定窗口z上或z下的窗口的句柄

Delphi判断文件是否正在被使用

Delphi实现win10下Delphi 10.3.1 inline hook 修改mac网卡地址之getadaptersaddresses

Delphi webbroker 输出图片的问题

Delphi 使用webbrowser控件获取含框架的网页的完整html代码

Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"

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