Pensaba que al introducir '29/02/2006' me ejecutaba
Código Delphi
[-]procedure TDBDateEdit.ValidateEdit;
var
pos : integer;
Aux_Date : TDateTime;
begin
if not Validate(Text, pos) then
DateComplete;
...
... pero estaba equivocado, y no entra ahí.
Funciona correctamente así :
Código Delphi
[-]procedure TDBDateEdit.ValidateEdit;
var
pos : integer;
Aux_Date : TDateTime;
begin
if not Validate(Text, pos) then
DateComplete;
if not TryStrToDate(Text, Aux_Date) then
Abort;
inherited;
end;
Me queda entonces sólo la pregunta acerca de donde interceptar un posible error en mi programa principal para lanzar mi propio mensaje de error avisando de Fecha Erronea.
Entiendo que tengo que cambiar el 'Abort' por algo, pero necesito vuestra ayuda.