Hola Paola, no se si es lo que estas buscando, pero en el OnBeforePost podes llamar a esta funcion.

function EsFechaValida(str: string): Boolean;
var
dt: TDateTime;
begin
� Result := True;
� try
��� dt := StrToDate(str);
� except
��� Result := False;
� end;
end;

Saludos,

Fer.MDQ

El 02/05/2011 10:35 a.m., Nippur Lagash escribi�:

Hola Fer..
si, la funci�n puede servir.. la cosa es qu� preguntar en el beforepost.. o sea.. d�nde est� el valor que yo ingres�.. no est� en qryAmpliaciones.FieldByName('fecha_recepcionprov').AsString porque el post no se hizo todav�a...

de todas formas, si pongo esto.. no sale ese mensaje sino el mensaje "invalid date" y me cancela el programa al entrar por ej una fecha 32/12/11

if not
EsFechaValida(qryAmpliaciones.FieldByName('fecha_recepcionprov').AsString) then

      ShowMessage('fecha Inv�lida');

chauuuuuuuuu

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110502/0cb92d51/attachment.html>

Hello Paola,

Monday, May 2, 2011, 4:00:07 PM, you wrote:

PB> de todas formas, si pongo esto.. no sale ese mensaje sino el mensaje PB> "invalid date" y me cancela el programa al entrar por ej una fecha 32/12/11

Esa es la excepci�n que no se como "saltarme". A partir de ah� es l�gico que la informaci�n del campo sea inv�lida o NULL, pero no veo como "customizar" ese campo que no sea usando un TEdit normal.