????
type
TMaskEdit = class(Mask.TMaskEdit)
protected
procedure ValidateError; override;
end;
TForm1 = class(TForm)
{ métodos y propiedades }
end;
implementation
procedure TMaskEdit.ValidateError;
begin
MessageBeep(0);
raise EDBEditError.Create('Formato incorrecto');
end;
end.
**No me funciona en esta, lo que pasa es que me marca error en "procedure ValidateError; override;"
|