求助:怎样才能不出现系统默认的提示框？

Question

我在一个编辑框(edit1）中的onexit事件中输入：
try
    strtoint(edit1.text）;
except
    showmessage("不是数字"）;
end;
...结果在编辑框中不输数字，当焦点离开编辑框时，并没有出现我想象中的“不是数字”信息框，而是出现了系统默认的提示框（一连串英文，大意是不能转换成数值型）怎样才能不出现系统默认的提示框呢？请各位大侠指点一二...

Answer 1

估计你现在是在Delphi的运行（F9)时出现的情况，这时虽然有异常处理代码，但是编译器会先于异常处理机制提示。
你直接运行得到的可执行程序就可以有你想得到的结果了。

Answer 2

调试的时候，就是这个样子，不用管它，直接运行EXE时没有这样的问题。

Answer 3

用 
  var
   I:Integer;
  I:=StrtoIntDef(edit1.text,0);
 
    if I=0 then showmessage('no number');

Answer 4

调试的时候，就是这个样子，不用管它，直接运行EXE时没有这样的问题。

Answer 5

在调试环境中是这样滴..
直接运行EXE就没问题了

Answer 6

在调试环境中是这样滴..
直接运行EXE就没问题了