Problema con un MaskEdit

[pkbza]

He tratado interceptar el error con esto...

procedure TForm1.MaskEdit1Exit(Sender: TObject);
var cadena:string[11];
begin
try
cadena:=MaskEdit1.Text;
except
showmessage('ingrese todos los valores a la casilla');
end;
end;
Pero no funciona

[roman]

Relamente es muy poco clara tu duda. La componente MaskEdit sirve precisamente para que un valor se ajuste a un formato dado. Si el valor que introduce el usuario no tiene el formato correcto entonces se origina una excepción y es precisamente el comportamiento normal: evitar la introducción de valores incorrectos. Si por alguna razón el control del MaskEdit no te sirve, por ejemplo porque el formato sea más complejo que una simple máscara, entonces olvídate de la componente, usa un TEdit normal y controla el formato en su evento OnExit.

Ahora bien, si lo que quieres es poder presentar un mensaje en español en lugar del mensaje en inglés te comento que no puedes usar try-except en el evento OnExit ya que la validación de la máscara se hace antes de que se genere el evento.

En tal caso te recomiendo leer este mensaje en donde explico cómo hacerlo.

// Saludos

[pkbza]

Lo explico de otra forma, cuando ingreso un valor a la mascara y luego borro algun caracter, al quitarle el foco (evento onexit) se produce el error invalid input value.

[roman]

Empezado por pkbza

Lo explico de otra forma, cuando ingreso un valor a la mascara y luego borro algun caracter, al quitarle el foco (evento onexit) se produce el error invalid input value.

Pues ya te lo dije. No estás haciendo otra cosa que explicarnos cuál es el comportamiento de un MaskEdit, cosa que ya sabíamos. Si éste no es el comportamiento que buscas tendrás entonces que utilizar otra componente.

// Saludos

[pkbza]

Gracias, la nueva expliacion era por lo poco claro de la duda solamente.

Chao y saludos.

[pkbza]

Ahora me quedo claro el comportamiento del MaskEdit (estaba un poco confuso), el link donde sale como enviar el mensaje en español me funciono correctamente, muchas gracias.
Chao.

[lucianojdg]

Tengo el mismo problema que PKBZA, esto ocurre solo con Delphi 7 (al menos lo probe en Delphi 6 y funciona correctamente)

Paso a explicar:

Cuando escribo en el MaskEdit supongamos un legajo 123-4567
(mascara: ___-____) y luego selecciono el texto completo y presiono la tecla (Del/Supr), borra el texto escrito y ademas la mascara del componente, cosa que no ocurre si utilizo la tecla Backspace (con la cual solo elimina el texto escrito). Una ves presionada la tecla Del/Supr la mascara queda de la siguiente manera _ (solo un guion), y cuando se sale del componente muestra un mensaje que en estos momentos no recuero... el tema es que la mascara NUNCA deberia perderse.

Alguien sabe como se puede solucionar esto teniendo en cuenta que en la version anterior no ocurria?

Saludos

Luciano