如何将系统的提示变成自己的提示

Question

就象VB里的on error goto语句。DELPHI里如何写。

Answer 1

type
  Tform1=class(TForm)
.....
procedure TForm1.AppException(Sender: TObject; E: Exception);
.....
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := AppException;end;procedure TForm1.AppException(Sender: TObject; E: Exception);begin
  //给出你的处理，E是错误类
end;

Answer 2

procedure TForm1.AppException(Sender: TObject; E: Exception);
这样声明好象不行啊。

Answer 3

Sorry错了
procedure AppException(Sender: TObject; E: Exception);

Answer 4

用异常处理啊：
try
  //将可能会出错的程序放在这里
except
  //出错后的处理语句
end;
如：try
  j:=0;
  i:=10 div j
except
  ShowMessage('除数不能为0');
end;

Answer 5

hhytsoft(雨中独行) ：这句出错 Application.OnException := AppException;
 我看了DELPHI的帮助，好象也是这样写的，我这里怎麽不行？
haoco(程序员) ：弹出的还是系统报错啊。

Answer 6

你还没有解决呀
在Additional组件组中有个组件叫ApplicationEvents,其中封装了applicaiton的事件，你可以在他的事件中定义就可以不用要这句话了Application.OnException := AppException;
直接在其事件中处理就可以了。

Answer 7

另外在你没有打包成exe文件，在Delphi运行时系统还是会先截获错误，还是会有提示，这是你的调试环境设置有关系。你在Delphi外运行，就可看到你自己的提示了。

Answer 8

try
  j:=0;
  i:=10 div j
except
  on e: 错误类型 do
   begin
      showmessage('提示')
   end;end;
在Delphi 中仍会出现系统的提示，但在编译后执行EXE文件时就会出现你设置的提示