我的程序设计是这样的:
运行FrmCenter >> 如果已安装 则进入卸载界面 >>
fUninstall := TFrmUninstall.Create(Application);
fUninstall.Show;
>> 如果未安装 则进入安装界面
fInit := TFrmInit.Create(Application);
fInit.Show;
以上两个界面都是Available Forms
问题出在:异常无法显示到界面上,并且程序停在异常处
但调试时可以看到对应的异常
请各位帮忙看下是什么原因呢
运行FrmCenter >> 如果已安装 则进入卸载界面 >>
fUninstall := TFrmUninstall.Create(Application);
fUninstall.Show;
>> 如果未安装 则进入安装界面
fInit := TFrmInit.Create(Application);
fInit.Show;
以上两个界面都是Available Forms
问题出在:异常无法显示到界面上,并且程序停在异常处
但调试时可以看到对应的异常
请各位帮忙看下是什么原因呢
procedure MyException(Sender:TObject;E:Exception);
procedure MyException(Sender: TObject; E: Exception);
begin
Application.ShowException(E);
end;procedure FormCreate(Sender: TObject);
begin
Application.OnException := MyException;
end;
我这样的代码还是无法跳到MyException里面去
现在还是:异常发生后就直接停止程序运行 也不显示异常到界面...郁闷~囧~
杯具...