关于try.....except....end语句的问题

Question

try
  adoquery1.fieldbyname('迁出日期').value:=strtodate(edit1.text);
  except
  showmessage(edit1.text+'不是有效日期');
  end;如果向edit1中输入123，不能转换了日期型，系统弹出一个错误信息框，请问怎么
隐藏这个信息错误对话框。
 
2.如何捕捉错误对话框的信息号/3.如何定义日期型  var
                   aa:datetime;    提示错误！！

Answer 1

日期型的为TDateTime你在运行程序时，会出现这个样子的情况吗？还是在Delphi中运行程序时，出现这个样子的情况。

Answer 2

1、你在调试状态下吧？2、try   except on e:Exception do
   showmessage(e.message);   end;3、var
   aa:TDatetime

Answer 3

在调试状态下，程序触发异常不执行except后的语句。

Answer 4

在调试时系统弹出一个错误信息框。
执行EXE文件就会自动执行EXCEPT中的语句了

Answer 5

定义日期是TDateTime，不是DateTime；你的异常设置中并没有自己设立异常，而是调用了系统的异常处理，所以会弹出一个你无法控制的Dialog如果你要自己处理异常，可以使用try
  AdoQuery1.FieldByName('迁出日期').Value:=StrToDate(Edit1.Text);
except
  on E:Exception do 
    ShowMessage(Edit1.Text+'不是有效日期');
end;