V¡®u§ 849 Posted January 7, 2012 Pra quem precisar fazer com que uma rotina seja repetida a cada intervalo de tempo e não quer usar o componente TTimer eu criei esse código. Alguns vão me perguntar: "Não é mais fácil simplesmente usar o componente?" Sim! é mais fácil, porém com essas funções vc não vai precisar declarar todos os recursos do componente TTimer, utilizando menos memória (é pouca coisa mas sempre temos que visar a melhor performace para o sistema)} //Declare as procedures que vamos utilizar procedure Timer(Timer: Integer; Intervalo: Integer; Ativado: Boolean); procedure TimerMensagem(var Msg: TWMTimer); message WM_TIMER; procedure TForm1.TimerMensagem(var Msg: TWMTimer); begin //Aqui vc digita qualquer rotina que deseja executar (mesma coisa que o evento OnTimer do componente TTimer) end; procedure TForm1.Timer(Timer: Integer; Intervalo: Integer; Ativado: Boolean); begin if Ativado then SetTimer(Handle, Timer, Intervalo, nil) else KillTimer(Handle, Timer); end; //Ativando o nosso timer Timer(1, //ID do timer, pode ser qualquer número inteiro 100, //Intervalo de repetição True); //Se passar True ativa o timer, se passar false desativa //Desativando o nosso timer Timer(1, 100, False); {bom galera é isso aí, espero que tenham gostado da dica. Por favor comentem, isso nos inspira a cada vez postar mais dicas} Share this post Link to post Share on other sites