Delphi中 怎么设置 EDIT 文本框只允许输入阿拉伯数字?输入其它字符时,内容输入不上
Delphi中怎么设置EDIT文本框只允许输入阿拉伯数字?输入其它字符时,内容输入不上,(最好其它字符就算键盘输入了,文本框中也不显示出来,同时弹出信息"只允许输入阿拉伯...
Delphi中 怎么设置 EDIT 文本框只允许输入阿拉伯数字?输入其它字符时,内容输入不上,(最好其它字符就算键盘输入了,文本框中也不显示出来,同时弹出信息 "只允许输入阿拉伯数字" 谢谢! 求详细代码和步骤..
或者有没有只允许输入 阿拉伯数字的 控件文本框? 展开
或者有没有只允许输入 阿拉伯数字的 控件文本框? 展开
2个回答
展开全部
很简单啊，把TEdit的属性NumbersOnly设置成True就可以了，默认是False
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (not (key in ['0'..'9', #8]) or (LeftStr(Edit1.text + key, 1)= '0') then
begin
key:= #0;
end;
end;
只允许输入数字, 且第一位不能为零..
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
