定义一个错误处理事件,然后吧Application.OnException指向它

解决方案 »

  1.   

    编译成exe文件后就不会出现系统提示
      

  2.   

    ONEXIT事件里
    try 
    正确的输入6位处理
    except //如果出现错误
    showmessage()
    如楼上所说,执行程序没有提示
      

  3.   

    呵呵,继承一个一点都不麻烦嘛,为什么不呢?TMyMaskEdit = class(TCustomMaskEdit)
       private
         procedure ValidateError;override; end;
    procedure TMyMaskEdit.ValidateError;
    begin
      //inherited;
        MessageBeep(0);
        ShowMessage('Error');end;
      

  4.   

    pathe(睡斛)//cobi(我是小新)  两位的方法各有独到之处,谢了