Delphi中编辑框只能输入数字或者只能输入一个浮点数值
2017-10-12 10:38
281 查看
在Delphi中使用TEdit控件的时候我们有些时候让该控件只能输入数字,或者只能输入一个浮点小数。
首先来实现一个编辑框接收键盘按下只能是数字的方法:
[delphi] view plain copy
向界面拖一个TEdit控件。
取名为:edt1.
其次:
添加键盘编辑事件,例如:OnKeyPress。
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
var
i : Integer;
begin
if not (key in ['0'..'9',#8]) then key := #0; //只允许输入数字
end;
end.
下面再来介绍一下编辑框接收键盘按下的数字或者是一个浮点小数的方法:
[delphi] view plain copy
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
var
i : Integer;
begin
if (Key = '.') and (Length(edt1.Text) > 0) then //处理小数点
begin
for i := 1 to length(edt1.text) do
begin
if edt1.Text[i] = '.' then Key := #0;
end;
end
else
begin
if not (Key in ['0'..'9',#8]) then Key := #0; //处理非数字
end;
end;
[delphi] view plain copy
end.
首先来实现一个编辑框接收键盘按下只能是数字的方法:
[delphi] view plain copy
向界面拖一个TEdit控件。
取名为:edt1.
其次:
添加键盘编辑事件,例如:OnKeyPress。
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
var
i : Integer;
begin
if not (key in ['0'..'9',#8]) then key := #0; //只允许输入数字
end;
end.
下面再来介绍一下编辑框接收键盘按下的数字或者是一个浮点小数的方法:
[delphi] view plain copy
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
var
i : Integer;
begin
if (Key = '.') and (Length(edt1.Text) > 0) then //处理小数点
begin
for i := 1 to length(edt1.text) do
begin
if edt1.Text[i] = '.' then Key := #0;
end;
end
else
begin
if not (Key in ['0'..'9',#8]) then Key := #0; //处理非数字
end;
end;
[delphi] view plain copy
end.
相关文章推荐
- Delphi中如何让编辑框只能输入数字或者只能输入一个浮点数值呢?
- C#--关于事件的定义及注册,如何实现在一个文本框中只输入数字或者只能输入0至9十种数字、a至z或A至Z五十二种字符。
- 正则限制文本框只能输入数字||只能是数字和一个小数点||只能是整数和浮点数
- Delphi-Edit中只能输入数字且只能输入一个小数点
- 一个只能输入数字的C#控件源码,并且可以限定数值类型,基本满足财务开发
- input框只能输入大于0的数字,当值为0或者“”时会变成1
- TextBox 扩展,能够输入数字,浮点数或者原来的功能
- C#--第10周实验--任务2--设计一个窗体--文本框只能输入0至9这十种数字,且长度最多8个
- 正则判断 中横线(-) 两边是否输入的是正整数 和 正浮点数 或者 只输入一个正整或浮点数
- 限制JTextFiled只能输入定长或者数字
- 输入一个卡号判断是否合法。其中卡号长度为16-19位,只能是数字。满足:
- 只能输入浮点数值的TextBox
- js限制input只能输入有效的数字,有且只有一个小数点,第一个不能为小数点
- vue中监听input只能输入数字及英文或者其他情况
- js实例:验证只能输入数字和一个小数点
- MFC中 限制只能输入数字的编辑框
- 在windows from 中怎样限制一个文本框只能输入数字(0-9)
- javascript验证只能输入数字和一个小数点示例
- 简单写了一个只能输入数字的JTextField
- delphi里面控制Edit只能输入数字