´ / / ´ is not a valid date and time

com o apllicationevent você trata qualquer evento em sua aplicação...

Se o Tipo do Campo for Timestamp, use um DBEdit e na Propriedade editmask do Field Coloque dd/mm/yyyy e na propriedade DisplayField coloque #//
Declare esta funcão

function CheckDate(Sender: TField; Text: String): Boolean;
begin
Result := False;
if (Text = ´ / / ´) or (Text = ´ / / ´) then begin
Sender.Clear;
Result := True;
end
else begin
try
Sender.AsString := Text;
Result := True;
except
messagedlg(´Data Inválida !!!´, mtInformation,[mbOk],0 );
if Screen.Cursor = crHourGlass then begin
Screen.Cursor := crDefault;
end;
end;
end;
end;


e no evento onset text coloque

if not ( CheckDate(Sender,Text) ) then begin
Abort;
end;

Ok.

Muito obrigado sremulador!!!

Cristiano Mário

Se o campo for DATETIME funciona também, Ariovaldo???

Cristiano

Funciona sim, sem problemas

Muito obrigado Ariovaldo!!!

Abraço!!!

Cristiano Mário