Intentando con Try ....

[__cadetill]

Seguramente será porque lo estás ejecutando desde el propio Delphi. Si lo ejecutas desde fuera de Delphi (directamente el exe que creas) no te saldrá el mensajito en inglés.

Aparte, a partir de Delphi 6 (creo) tienes la función TryDateToStr (o algo así) que ya te hace el trabajo del try..except..end;

[roman]

Empezado por cadetill

Seguramente será porque lo estás ejecutando desde el propio Delphi. Si lo ejecutas desde fuera de Delphi (directamente el exe que creas) no te saldrá el mensajito en inglés.

Creo que este no es el problema. El punto es dónde usar el try-except para capturar el error del MaskEdit como se discutió en este hilo

// Saludos

Para los cyber-arqueólogos del futuro: Este fue el mensaje 1000

[__cadetill]

Pues continualdo ese hilo... yo me quedaría con el TDateEdit de la Rx que ya la validan por ti

Empezado por roman

Para los cyber-arqueólogos del futuro: Este fue el mensaje 1000

Mis más sinceras felicidades por los 1000 mensajes Román

[roman]

Empezado por cadetill

Pues continualdo ese hilo... yo me quedaría con el TDateEdit de la Rx que ya la validan por ti

Pero el MaskEdit también valida por tí. Creo que ese es el problema ya que el punto no es evitar la excepción sino lograr que el mensaje salga, por ejemplo, en español en lugar de inglés.

// Saludos

[marcoszorrilla]

Para llegar al milenario
un millar de mensajes
es necesario.


Enhorabuena Román.

Un Saludo.

[roman]

Empezado por marcoszorrilla

Para llegar al milenario
un millar de mensajes
es necesario.

Je, je, Jefe de máquinas. Entré al milenario cuando los requisitos no eran tan exigentes . ¿Ahora qué, habrá promoción?

// Saludos

[Angel]

el problema está en que tu no "atrapas" la excepción, con lo cual tiene que ser delphi quien lo haga, para ello prueba lo siguiente

 
procedure TfrmSolicitud.edFnacExit(Sender: TObject);
var
      Hoy : TDateTime;
      Year, Month, Day: Word;
begin
   try
   begin
      Hoy := strtodate(edFnac.text); // cargo Hoy con la cadena del MaskEdit
      DecodeDate(Hoy, Year, Month, Day); // intento la decodificación
      Editboxsiguiente.setfocus; // si la fecha es correcta y no ocurre error pasa siguiente control.

   end;
   except 
     // Si ocurre un error :
   begin
     edFnac.setfocus; // escribir nuevamente la fecha
     raise exception.create('Fecha erronea....'); // mensaje de error al usuario
   end;
end;

[Alfredo]

Gracias amigos, voy a intentar las distintas propuestas y el hilo sugerido.

Con respecto a las Rx, las tengo pero me genero un error al interntar instalarlas en mi version de delphi (v2.0) y desisti.

gracias...