Question

delphi中的修改密码功能 Edit1和Edit2在输入的时候没问题，但Edit3收时输入一个字就会弹出一次对话框

procedure TCiphermodify.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
origincipher:=Edit1.Text;
if origincipher<>psw then
begin
showmessage('原密码输入错误，请重新输入');
origincipher:='';
Edit1.Clear;
end
else
Edit2.SetFocus;
end
end;

procedure TCiphermodify.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
newcipher:=Edit2.Text;
Edit3.SetFocus;
end
end;

procedure TCiphermodify.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
confirmcipher:=Edit3.Text;
if confirmcipher<>newcipher then
begin
showmessage('新密码与确认密码不同，请重新输入');
newcipher:='';
confirmcipher:='';
Edit2.Text:='';
Edit3.Text:='';
end
end
else
showmessage('可以修改密码');

end;

代码如题 请各位大侠帮帮忙~

Answer 1

你在Edit3KeyPress事件中将连续输入的路给堵死了。你目前的处理是，只要不是回车键就弹出“可以修改密码”消息。将语句:
else
showmessage('可以修改密码');
去掉就行了。
注，别忘记将上一个end补上分号。

Answer 2

你第三个 eles showmessage('可以修改密码');
肯定是输入一个字符，出一次的

把这些都去掉，在save的时候判断

Answer 3

在edit的onchang事件判断咯，如果为真就showmesaage