try 
begin
//do you want
end;
except
begin
//when error then do you want else
end;
end;

解决方案 »

  1.   

    在Application的OnException事件中做处理。
      

  2.   

    try
      ......
    except
      ShowMessage('错误!');
    end;
      

  3.   

    用Try except结构:
      try
        ......
      except
        出错提示
      end;
      

  4.   

    不要用F9直接运行,这样出不来自己的提示,要执行exe文件
      

  5.   

    同意楼上的方法,但是有一点需要补充
    try..except 可以捕获错误,但是对于错误可能遗留的问题没办法解决
    try..finally可以处理出错后遗留的问题,但是不能捕捉错误信息。
    所有如果要安全的处理,可能要这样调用
    sList:=TStringList.Create;
    try
      try
        sList.Add(Date); 这句会错
      except
        Application.Messagebox(...);//显示你的提示
      end
    finally
      sList.free; //处理遗留的问题
    end;这样写要累死人了,如果要统一捕获可以在
    Application.OnException 中写你的代码
      

  6.   

    try
    ....
    except
    ;
    如果你在调试期间他一直出现delphi的提示!如果你打包后或编译后!delphi的提示就不出现了!