antiblock
Elveron
  • Chatbox

    You don't have permission to chat.
    Load More
Sign in to follow this  
V¡®u§

Tempo sem timer no Delphi

1 post in this topic

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
antiblock
Elveron

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this