Delphi-Edit中只能输入数字且只能输入一个小数点
2016-01-21 10:03
671 查看
使用这种功能必须使用 OnKeyPress 事件,该事件是在窗体中获得键盘输入的焦点,并且在用户按键时发生。OnKeyPress 事件中有个重要参数:Key。Key 参数为Char 型,它能够获得用户的按键值。下面的代码就只能输入0~9 之间的数字,且只能输入一个小数点,按下其他键时无效。
1 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 2 begin 3 if not (key in ['0'..'9','.',#8]) then 4 key:=#0; 5 if (key='.') and (Pos('.',Edit1.Text)>0) then 6 key:=#0; 7 end;
相关文章推荐
- Delphi XE8 程序瘦身.编译后EXE最低90KB.
- 【Delphi】GIF 动画建立
- FireDAC简易教程
- Delphi XE7的安卓程序如何调用JAVA的JAR,使用JAVA的类?
- delphi7 编译程序时报win32.indcu.a病毒的解决方法
- Delphi PChar与String互转
- Delphi+MySQL:TADOQuery使用插入中文乱码解决方法
- Delphi中的操作二进制文件的两个重要函数
- Delphi出现“borland license information was found,but it is not valid for delphi”的错误,无法运行的解决方法
- FastReport 动态加载图片
- delphi:斑马打印机ZPL指令打印中文及二维码
- Delphi下使用Sato打印机
- Delphi ListView基本用法大全
- Delphi禁止重复运行同一程序的方法
- 多级接口实现方法
- Panel移动
- Delphi获取句柄并发送消息
- delphi 获取文件所在路径
- 使用delphi+intraweb进行微信开发1--微信平台接入
- 使用delphi+intraweb进行微信开发1--微信平台接入