TimeToStr(Now);

Question

LABEL1.Caption:=TIMETOSTR(NOW);

agora o label1 esta recebendo a hora do sistema.
toda vez que passar 30 segundos o programa deve dar uma menssagem.
o que devo fazer para que essa menssagem seja executada a cada 30 segundos

estou usando 1 timer e 1 label.

Edilcimar · Answer

coloque um timer e a cada 30000 mande uma mensagemshowmessage(�passou 30 segundos desde a �ltima mensagem�)...

Xakal · Answer

como?...

Edilcimar · Answer

coloque um timer, o mesmo tem uma propriedade de tempo coloque interval := 30000 ou qualquer tempo multiplicado por 1000
timer1.enabled := true
no ontimer do mesmo coloque showmessage(�passou 30 segundos desde a �ltima mensagem�);
timer1.enabled := false;
timer1.enabled := true;
para resetar o timer

Beppe · Answer

Xakal, este � seu terceiro t�pico em 1h30min sobre o mesmo problema. E al�m disso, colocou o t�tulo do t�pico em letras mai�sculas. Se voc� voc� quer ser banido do f�rum, diria que conseguir� isto em breve.

Por favor, leia as regras de conduta: [url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689[/url]

F�rum TimeToStr(Now); #203265