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替换字符串中的单引号

Delphi 悬浮窗口 浮动窗口 迅雷下载浮动窗口的实现

Delphi trim 删除字符串左右两边的空格

Delphi pascal 单元文件的特殊定义格式

Delphi mscomm简单的中间pc串口数据中转

Delphi 调用打印软件代码

Delphi启动控制面板的方法列表

Delphi xe webbroker 开发,解决 response 返回中文乱码问题

Delphi 实现文件分割合并

Delphi 横竖屏代码控制

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

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