Eu faço assim:
// esse código eh colocado no evendo OnExit do Edit da Data
try
StrToDate(EditData.Text);
except
ShowMessage('Data Inválida.');
EditData.Setfocus;
end;
----- Original Message -----
From: "Trama Paulista .:sites .:sistemas" <[EMAIL PROTECTED]>
To: "Delphi - BR" <delphi-br@yahoogrupos.com.br>
Sent: Friday, January 28, 2005 12:01 PM
Subject: [delphi-br] TESTE DE DATA
Pessoal,
Tenho um form com um campo data com máscara 99/99/9999. Entretanto, se for
digitada uma data errada eme dá uma mensagem de erro e pede para teclar
escape para sair, coisa que qualquer usuário odeia.
Gostaria de saber como fazer para evitar esta mensagem, ou seja, como
contornar esta situação, colocando eu mesmo uma mensagem de erro e
possibilitando a redigitação de uma data correta ou mesmo de limpar o campo.
Desde já, obrigado.
Magno
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
