fechas nulas maskedit

[[José Luis Garcí]]

Como lo prometido es deuda aqui teneis

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then MaskEdit1.Text:='';
end;

Cada vez que el foco esta en el maskedit y pulsamos esc nos lo deja impoluto, tambien se prodri hacer en el evento de salida, si la fecha noes valida que la anule, es 1 sola linea de código, pero busca y allaras.

Me imagino que te valdra tambien para el ¿dbedit? estas seguro del componente.

Un saludo desde Canarias.