Oi Alexandre,
Valeu pela dica, funcionou perfeitamente.
Alexandre Oliveira escreveu:
>Olá,
>
>Olha, acredito que todos estejam abarrotados de coisas pra fazer hoje. Nem
>sempre é possível ficar verificando a lista. Talvez por isso ninguém tenha
>respondido ainda. Bem, mas você já tentou usar o evento DATACHANGE do
>datasource que está ligado no seu DBGrid ? Talvez seja uma solução..
>
>procedure TForm1.datasource1DataChange(Sender: TObject; Field: TField);
>begin
> If (Field = datasource1.DataSet.FieldByName('HORA1')) or
> (Field = datasource1.DataSet.FieldByName('HORA2')) then
> begin
> ... Seus testes
> end;
>end;
>
>[]'s
>
>Alexandre Oliveira Campioni
>Analista de Sistemas
>A-Tecnologia e Sistemas de Informacao Ltda.
>Sao Joaquim da Barra - Sao Paulo - Brasil
>[EMAIL PROTECTED]
>
>
>-----Mensagem original-----
>De: Cristina Orthmann [mailto:[EMAIL PROTECTED]
>Enviada em: quarta-feira, 23 de fevereiro de 2005 15:54
>Para: Lista Delphi
>Assunto: [delphi-br] Tratamento de hora inválida
>
>
>
>Vocês estão recebendo as minhas mensagens, não tive resposta em nenhuma
>dúvida postada até agora.
>
>
>Olá pessoal,
>
> Por favor respondam.
>
> Em minha aplicação há um dbGrid onde o usuário poderá alterar o
>quadro de horários, fiz o seguinte tratamento caso o usuário digite uma
>hora inválida ou uma hora final menor que a inicial.
> Acontece que este código só funciona quando mudo de campo com a
>tecla seta para baixo. Quando digito enter ou tab aparece a mensagem de
>hora inválida quando tento converter StrToDateTime(Text) para verificar
>se a hora é menor que a anterior. No campo text aparece um caracter
>estranho, acredito que este caracter represena o enter ou o tab.
>
>
>procedure frmQuadro.qryQuadroHora2SetText(Sender: TField;const Text:
>String);
>begin
> if Text = ' : ' then
> (Sender as TField).AsString := ''
> else
> try
> (Sender as TField).AsString := Text;
> except
> MessageDlg('Hora Inválida!',mtError,[mbOk],0);
> end;
> if StrToDateTime(Text) < StrToDateTime(qryQuadroHora1.Text) then
> begin
> MessageDlg('Hora de saída deve ser maior que a
>entrada.',mtWarning,[mbOk],0);
> qryQuadroHora2.Clear;
> end;
>end;
>
>
>
>
>
--
Atenciosamente
-----------------------------------------------------
Cristina Orthmann da Silva
HACON Automação e Tecnologia Ltda
Rua Lauro Linhares 589 - Bairro Trindade
Florianópolis - SC - Brasil
CEP 88036-001
Fone/Fax: 55 48 333-0699
Site: http://www.hacon.com.br/
Email: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
-----------------------------------------------------
[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
<*> 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
