Delphi-Edit中只能输入数字且只能输入一个小数点

本文整理自网络，侵删。

 
使用这种功能必须使用 OnKeyPress 事件，该事件是在窗体中获得键盘输入的焦点，并且在用户按键时发生。OnKeyPress 事件中有个重要参数：Key。Key 参数为Char 型，它能够获得用户的按键值。下面的代码就只能输入0~9 之间的数字，且只能输入一个小数点，按下其他键时无效。
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9','.',#8]) then
    key:=#0;
  if (key='.') and (Pos('.',Edit1.Text)>0)   then
    key:=#0;
end;
 

相关阅读 >>

Delphi listview1 加载文件列表用法

Delphi firedac,ado性能测试

Delphi pointer 转成string

Delphi scrollbox1滚动框鼠标滚轮

Delphi xe android下让tmemo不自动弹出键盘

Delphi 文本转成图片

Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)

Delphi win7下超级管理员创建普通权限任务

Delphi winsock 获取计算机名和ip

Delphi获取本机mac地址方法

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

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