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

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 获取计算机已运行时间

Delphi之屏幕和窗口的坐标

用Delphi判断操作系统是否win10

Delphi zlib 流压缩解压

Delphi 关于 class helper for ... 语法

Delphi实现win10下Delphi 10.3.1 inline hook 调试器法获取寄存器并修改

Delphi为你的窗体有效地提供剪贴板的相关操作

Delphi 调用相应程序打开网址

Delphi 安卓获得设备 id

Delphi 用拼音首字符检索汉字的源代码

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