摘要: delphi中的MaskEdit控件是一个简单的正则验证控件。这里不赘述具体的用法 。正题说下异常的处理。MaskEdit的异常触发是在鼠标离开文本框,聚焦到下个窗口对象时觖的。所以要在每个控件的edtPwMouseEnter,或者KeyDown下处理 异常。代码如下:procedure TQuanXFrm.edtPwMouseEnter(Sender: TObject);begin try edtZhangH.ValidateEdit; except MSGWarning('请按要求输入账号,8位任意字符'); end;end; 阅读全文
posted @ 2011-09-16 08:21 cnby 阅读(648) 评论(0) 推荐(0) 编辑