var
a, b: Integer;
begin
b := 0;
a := 1;
try
a := a div b;
except
on Exception do
ShowMessage('11');
end;
ShowMessage(IntToStr(a));
end;
不要在调试状态下运行
不对的 我试过
只要是异常就会执行label3.Visible:=true;这句语句
同时 界面上也不会弹出异常信息
源码尽量简化，不要直接贴。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024