送分！！关于Maskedit的小问题！

Question

我把他设成____-__-__的格式，要求输入8个数字但是输入的个数不足是会出现问题跳出程序，请问怎么解决可以用try……except……finally 的语法解决吗？

Answer 1

重载它的ValidateError方法
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask;Type
  TMaskEdit = class(Mask.TMaskEdit)
  protected
    procedure ValidateError; override;
  end;
type
  TForm1 = class(TForm)
    MaskEdit1: TMaskEdit;
    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;implementation{$R *.DFM}{ TMaskEdit }procedure TMaskEdit.ValidateError;
begin
  showmessage('you are input error');
//  inherited;
end;end.