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" <[email protected]>
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
