Timer

Question

Alguem pode ajudar-me com o evento onTimer : Estou tentando fazer surgir uma messagem em um programa baseada por um Timer, no seguinte ponto: Se a hora de um campo for menor que a hora atual surgir um...

Marcelo Saviski · Answer

Coloque isso no evento OnTimer do Timer [i:384704ebc6](Como se tivesse outro :? )[/i:384704ebc6]

If (Tabela.FieldByName(�campo com a Hora �).asDateTime < Time) then
 begin
  if Tabela.EOF then 
   begin
    Timer.Enabled := false;
    Exit;
   end;
  MessageBox(0, �O Tempo Extourou!�, �T�tulo da Mensagem�, MB_OK);
  Tabela.Next;
 end;

ou assim, Coloque isso em um button:

Tabela.First;
While not Tabela.EOF  do
 begin
  If (Tabela.FieldByName(�campo com a Hora �) < Time).asDateTime then
   begin
    MessageBox(0, �O Tempo Extourou!�, �T�tulo da Mensagem�, MB_OK);
    Tabela.Next;
   end;
 end;

t+

Magro · Answer

Obrigado pela dica eu testei funcionou, mais eu queria que quando eu preencher outro campo ele parace de dar a messagem.    Vou usar outras formas, mas se tive outra dica eu agrade�o!!...

Marcelo Saviski · Answer

Como assim?Voc� quer dizer que da a Mensagem, ai o cara vai l� e coloca alguma coisa em outro campo, e depois n�o exibe mais a Mens?...

F�rum Timer #187233