dbedit con editmask, Error : is not a valid date

[osmar]

Hola Amigos..

Mi problema es el siguiente tengo un dbedit relacionado con campo fecha con editmask !99/99/9999:1:_, y al ingresar por ejemplo 01/01/__, y al darle enter o tab sale el siguiente error "01/01/ " is not valid date, si me pueden ayudar para controlar este mensaje..


Gracias de antemano...

Osmar Rolon

[vtdeleon]

Saludos

Mira a ver si con los Eventos OnEditError o OnPostError puedes capturar este error.

[reina]

Holas! bueno ..deberias cachar..la excepcion..creo no? bueno podes poner algo como lo siguiente en el evento onexit de la mascara!..

Código Delphi [-]
var valida:Tdate;
begin
     try
    if not(Tmaskedit(sender).Text = '  /  /    ') then
         valida:= strtodate(Tmaskedit(sender).text);
    except
        on Exception do 
            showmessage('algo'); // tirar algun mensaje o nada
    end;
end;

bueno tb recorda que la captura de las excepciones las tenes que probar fuera del ambiente..delphi o como lo llames..

saludos! espero te sirva

LA PATRIA SERA LIBRE

[osmar]

Gracias amigos por responder, lo probare esta noche, y mañana les cuento quetal me fué..

Saludos Osmar Rolòn..

[osmar]

Gracias Amigos, he resuelto mi problema capturando el mensaje como me habia dicho vtdeleon, mediante el componente applicationevent en el evento onexception..


Gracias a Todos

Saludos Osmar Rolòn..