RSS订阅 | 匿名投稿
您的位置:网站首页 > 技巧 > 正文

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

作者:admin 来源: 日期:2016/1/26 23:59:49 人气: 标签:

使用这种功能必须使用 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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料