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]>
-----------------------------------------------------
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005
--
<<<<< 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
