如何处理MaskEdit 的异常

delphi中的MaskEdit控件是一个简单的正则验证控件。这里不赘述具体的用法 。

 正题说下异常的处理。

MaskEdit的异常触发是在鼠标离开文本框，聚焦到下个窗口对象时觖的。所以要在每个控件的

edtPwMouseEnter，或者KeyDown下处理 异常。代码如下：

procedure TQuanXFrm.edtPwMouseEnter(Sender: TObject);
begin
    try
      edtZhangH.ValidateEdit;
   except
      MSGWarning('请按要求输入账号,8位任意字符');
   end;
end;