Question

[delphi] 按键盘回车会陷入死循环，（如图）

当我在折扣金额里输入的是非法数值时，会填出报错框，但是我用键盘回车键后，这个框会闪一下，再出现，焦点不会最终落到折扣金额上，如果用光标点击，则填出框会消失，焦点落到折扣金额上，该怎么样才能使用键盘和光标的效果一致？
代码如下：
procedure TForm1.zk_zkjeKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var E: Extended;
begin
if not tryStrToFloat(zk_zkje.Text, E) and (key in [13,39]) then
begin
showMessage('您输入的折扣金额数值不正确，请重新输入！');
exit;
end;
end;

Answer 1

是你的对话框具有缺省的响应按钮（按钮会附带对话框的mrOK值）吧，如果这样你需要在响应时加上ModalResult := mrNone;

追问

貌似没效果呀

追答

一般遇到这种判断不建议在KeyUp事件里响应的，可以在提交响应（点击确定或者回车自动提交）时统一判断并定位出错编辑框的

Answer 2

用tag作一下标记就可以了
var
E: Extended;
begin
if zk_zkje.Tag=-1 then
begin
zk_zkje.Tag:=0;
exit;
end;
if not tryStrToFloat(zk_zkje.Text, E) and (key in [13,39]) then
begin
zk_zkje.Tag:=-1;
showMessage('您输入的折扣金额数值不正确，请重新输入');
exit;
end;

end;

Answer 3

这个我没有试过这样定义，你试下在showMessage之后加上个清空EDIT试试。

追问

不行呐

追答

我试了下，你这个回车键是在报错的范围内的，你应该取消这个回车键的报错。
你在弹出ShowMessage之前，焦点一直在输入框里，回车取消ShowMessage后，焦点回到输入框，然后回车键弹起，正好激活了你这个判断。

if not (tryStrToFloat(zk_zkje.Text, E) and (key in [14,39])) then
begin
showMessage('您输入的折扣金额数值不正确，请重新输入！');
exit;
end;

追问

改成你说的那样了，还是在循环中~
procedure TForm1.zk_zkjeKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var E: Extended;
begin
if not tryStrToFloat(zk_zkje.Text, E) and (key in [13,39]) then
begin
showMessage('您输入的折扣金额数值不正确，请重新输入！');
exit;
end;
end;

追答

key in [14,39]
或者直接把这个判断去掉，只要
if not tryStrToFloat(zk_zkje.Text, E) then
这样的判断足够了，根本不需要再加上其他条件了。

追问

if (zk_zkje.Text'') then
begin
if not tryStrToFloat(zk_zkje.Text, E) then
begin
showMessage('您输入的折扣金额数值不正确，请重新输入！');
exit;
end else
if (key in [13,39]) then zk_bc.SetFocus;
end;
我改成这样了，可是还是在循环。5555

追答

end else
if (key in [13,39]) then zk_bc.SetFocus;
end;
你为啥要加这句？

追问

我输入完要使它可以自动跳到下一个保存按钮上

追答

你又要判断回车键来进入下一个输入框，又不能判断回车键来进行验证。你这样做很矛盾的

追问

我发现了，好纠结~~我再好好想想该怎么办，谢谢你了~~

追答

你将验证代码写到OnChange里，判断回车的代码不动，试下。应该可以的

Answer 4

在keypress里写
if not (Key in ['0'..'9', #8, #13]) then
begin
Key := #0;
ShowMessage('只能输入数字');
end;

追问

这个只能判断是否是数字输入，但如果我输入一个2..3时（两个小数点），我想让他报错~

追答

if (key = '.') and (Pos('.', edt1.Text) > 0) then
begin
Key := #0;
ShowMessage('输入错误');
Exit;
end;
if not (Key in ['0'..'9', #8, #13]) then
begin
Key := #0;
ShowMessage('只能输入数字');
end;
--------
可以用maskedit的正则来限制输入 也可以用RzNumericEdit
这两个控件可以保证非法数据无法录入