delphi软件exe，去除文本框字数限制，限制只能输入1位数字，通过一个onKeyPress方法判断输入的是否正确 30
正确跳到下一文本框，不正确继续留在当前文本框。这是一个已有的exe文件，现在想改成可以输入2位数字，请问大家谁能帮我解决一下，谢谢...
正确跳到下一文本框，不正确继续留在当前文本框。这是一个已有的exe文件，现在想改成可以输入2位数字，请问大家谁能帮我解决一下，谢谢
展开
1个回答
展开全部
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
n: integer;
begin
if not (Key in [#8, #13, #127,'0'..'9']) then Key := #0;
n := length(edit1.Text);
if n > 0 then Key := #0;
end;
试试这段代码应该可以；
var
n: integer;
begin
if not (Key in [#8, #13, #127,'0'..'9']) then Key := #0;
n := length(edit1.Text);
if n > 0 then Key := #0;
end;
试试这段代码应该可以；
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
