请问，在程序启动时,要如何拦截单数据库不存在的异常，使英文提示不出现，在我窗体的create事件中，进行判断数据库是否存在，如不存在触发异常，可是还是有几个英文提示出现，难道不是在窗体的create事件中拦截单数据库不存在的异常吗?

Question

首先你是在什么地方判断的数据库存不存在，另外，要脱离delphi的IDE环境运行。

Answer 1

1.不要再IDE中将DataBase,Table,Query等类似控件的Active(Connected)属性设置为True;
2.在OnCreate中拦截
  Try
   Table1.Actice:=True;
  Excepte
   ShowMessage('Fail');
  End;

Answer 2

需在Program单元拦截，也就是项目单元，在你CreateForm DM单元的时候.

Answer 3

可以先定义一个函数,一般错误的提示有sql...,最后一个字母是'.',pos查找点,取'.'以后的字符串,function mymessage(msg1:string):string;
.
.
.Try
  Table1.Actice:=True;
  Excepte
  on E:Exception do
  showmessage(mymessage(E.message));  End;