Question

delphi edit输入结束的判断，该怎么解决

Answer 1

追问： 您这答案运行的话好像把edit1.text清空了在执行IF语句了啊 回答： 你要做edit1.text='123'的话只需要把上面的代码中if条件改成 if trim(edit1.text)='123' then 就好啦， 追问： 我那是比方来的啊，edit1.text内容是不同的。我的意思判断edit文本是否修改了。edit1.text的内容是不同的，可能是123也可能是456，789，122，... 回答： 其实你把edit1空间的text属性弄成空，然后判断 edit1.text是否等于空，是则没变，不是则变了，或者在判断lenth(edit1.text)>0 是则变了 不是则没变，之类的方法很多，我给你的思路是在窗体初始化时，给 edit1.text的值为空，然后只要它不为空时，就证明是变了，这个初始化赋值不在按钮事件内。 追问： 那如果这样的话，打个比方。已知：1个edit控件，1个button控件，edit1.text:='';。我要实现的是：运行程序后，点击button控件，输出消息：文本无修改。edit控件输入：edit1.text:='123';，点击button控件，输出消息：文本被修改了。窗体不做任何动作，直接点击button控件，输出消息：（........）。输出什么出来。edit控件输入：edit1.text:='456';，点击button控件，输出消息：（........）。输出什么出来。

Answer 2

----解决方案--------------------
procedure TForm1.xxxExit(Sender: TObject);
begin

end;
OnExit事件
------解决方案--------------------
procedure TForm1.TxtCountExit(Sender: TObject);
begin
if strToInt(TxtCount.Text) <= 200 then
ShowMessage('输入的结果要大于200')
end;
------解决方案--------------------
在Onexit事件里写代码就可以了。

Answer 3

如果你要转移焦点：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then form1.ActiveControl:=edit2;
end;

如果你要退出程序：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then halt;
end;