怎样屏蔽或自动关闭那些弹出的异常对话框

Question

try
  ...
except
  ...
end;在try中写入可能发生异常的代码，然后在except中写入异常发生时的处理代码

Answer 1

try
...
finally
...
end;

Answer 2

try
  ...
except
  ...
end;
用这个没有问题的！有对话框弹出来也应该是你自己写入的，找找吧，我刚才简单测试了一下，一个edit控件，一个button按钮，按钮写
var
    a:integer;
begin
    try
        a:=strtoint(edit1.Text);
    except
    end;
end;
edit中输入什么都没有错误提示框出来

Answer 3

try
...//可能发生异常的代码
finally
...//处理
end;

Answer 4

try..finally..end是无法处理的，楼主的意思是想如果我用
showmessage('可不可以过几秒钟后自动关闭对话框')来显示错误，我不用去点OK或回车就可以自动关闭。我也不能很好的解决，但如果首先用findwindow找到这个对话框，然后再Sendmessage一个关闭操作应该可以解决的

Answer 5

查找当前窗口的焦点，用findwindow，找到后发个关的消息给该窗口就可以了

Answer 6

哦，我的方法是笨一点，得放一个timer才行，在出现对话框前Timer.enabled:=true;在ontimer中写关闭事件后enabled:= false;

Answer 7

在你的主窗口上加入Application的OnException事件的异常处理代码，即
　Application.OnException:=异常处理函数