如何在delphi里面控制Edit只能输入数字
2个回答
展开全部
首先，在delphi里面控制edit只能输入数字的方法如下：
if not (key in ['0'..'9',#8]) then key := #0;只能输入汉字，而不能输入数字或其他字符.
在Edit的OnKeyPress事件中
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Ord(Key)<127) or (Ord(Edit1.Text[1])>127) then
Key:=#0;
end;
扩展一下回答：如果要使一文本框中只可输入数字,而且当输入的数字错误时还可以通过Backspace键来修改.
由于BackSpace的ASCII值是8，所以像以下这样即可
if (key<>#46) and ((key < #48) or (key > #57)) and (key <> #8) then
//如果输入不是数字或小数点（#46代表小数点）
begin
key:=#0; //取消输入的内容（#0代表空值）
showmessage('输入错误!请输入数字!'); //发出提示信息
end;.
if not (key in ['0'..'9',#8]) then key := #0;只能输入汉字，而不能输入数字或其他字符.
在Edit的OnKeyPress事件中
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Ord(Key)<127) or (Ord(Edit1.Text[1])>127) then
Key:=#0;
end;
扩展一下回答：如果要使一文本框中只可输入数字,而且当输入的数字错误时还可以通过Backspace键来修改.
由于BackSpace的ASCII值是8，所以像以下这样即可
if (key<>#46) and ((key < #48) or (key > #57)) and (key <> #8) then
//如果输入不是数字或小数点（#46代表小数点）
begin
key:=#0; //取消输入的内容（#0代表空值）
showmessage('输入错误!请输入数字!'); //发出提示信息
end;.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
百事牛
2024-10-22 广告
百事牛是共享提供商，我们提供可靠有效的服务，适当合理的授权费有利于的继续更新优化。同样的事情，同样的方法，百事牛团队十年磨一剑，始终至聚焦在密码恢复领域，深耕于此，我们已研制出有别于其他公司的算法和运算模式， 百事牛的暴力模式加入了分布式点...
点击进入详情页
本回答由百事牛提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
