在onexit事件中判断,如果不符合要求的话,把焦点移到本身就可以了

解决方案 »

  1.   

    可如果数据不输全的话异常事件还是发生??提示:class EDBEditError with message'Invalid input value.'
      

  2.   

    try
      代码
    except
      屏蔽错误 SHOWMESSAGE('出错信息')
      

  3.   

    我在其exit中加入如下代码:
    procedure TForm1.MaskEdit1Exit(Sender: TObject);
    begin
            try
                    if length(trim(maskedit1.Text))<10 then
                    begin
                            maskedit1.SetFocus ;
                    end;
            except
                    showmessage('yes');
            end;
    end;end.可无论在集成环境中还是在编译好的文件中运行,显示的都是系统的异常出错信息并没有屏避啊!!!!!
      

  4.   

    MaskEdit有一个 MaxLength的属性可以控制输入的长度,设一下试试吧!