我的程序设计是这样的:
            
   运行FrmCenter >> 如果已安装 则进入卸载界面 >> 
                               fUninstall := TFrmUninstall.Create(Application);
                               fUninstall.Show;
                 
                 >> 如果未安装 则进入安装界面
                               fInit := TFrmInit.Create(Application);
                                fInit.Show;
以上两个界面都是Available Forms                                
问题出在:异常无法显示到界面上,并且程序停在异常处
 
但调试时可以看到对应的异常 
请各位帮忙看下是什么原因呢

解决方案 »

  1.   

    首先是DELPHI拦截到错误信息并告诉你,你按继续(continue)就可以在窗体中显示出来了
      

  2.   

    接管Application的OnException事件。
      

  3.   

    to:妖哥我的这样代码来接管Application的OnException 你看对不对
    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里面去   
    现在还是:异常发生后就直接停止程序运行 也不显示异常到界面...郁闷~囧~
      

  4.   

    闹明白了   自己在代码段的 头尾部分加上了这个 却一直被我忽视掉了..tryexceptend
    杯具...