problemas con TMaskEdit

[roman]

Empezado por squenda

Mi problema es que cuando entro a un maskedit pongo un valor y luego lo borro y me quiero salir me manda el error:

Invalid input value. Use escape key to abandon changes.

Sí, el MaskEdit es un poco necio. El problema está en que al salir del control (pero antes de que se genere el evento OnExit) la componente verifica si el texto ha sido modificado y en tal caso lo valida. Cuando borras el texto, la componente considera que ya se modificó y claro, la validación falla.

Una posible solución es usar el evento OnChange del control para reasignar true a la propiedad Modified en caso de que el texto no contenga nada. Para esto hay que tener en consideración la forma en que se especifica la máscara. Por ejemplo, si la máscara es (para una fecha):

MaskEdit1.EditMask := !99/99/00;0;_

entonces basta que compares con la cadena vacía:

Código Delphi [-]
procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
  if MaskEdit1.Text = '' then
    MaskEdit1.Modified := false;
end;

pero si es:

MaskEdit1.EditMask := !99/99/00;1;_

entoncs deberá de comparar así:

Código Delphi [-]
procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
  if MaskEdit1.Text = '  /  /  ' then
    MaskEdit1.Modified := false;
end;

Esto es así porque el 1 en la segunda parte de la especificación de la máscara indica que los caracteres literales ('/' en este caso) son parte del texto.

// Saludos