Função de tempo parecida com o Timer ?

26/08/2004

0

Fiz um componente, e queria utilizar uma função para que ele esperasse determinado tempo para executar o restante do codigo, criei componentes TTimer mais parece que eles não funcionam.

alguem pode me ajudar.


Jc_analista

Jc_analista

Responder

Posts

26/08/2004

Cebikyn

Tem duas opções:

Sleep(1000);


e

var
  X: Integer;
begin
  x := GetTickCount;

  while (GetTickCount - X) <= 1000 do
    Application.ProcessMessages;
end;


Nas duas opções o 1000 é o tempo que vc quer esperar (em milisegundos), a diferença entre elas é q na primeira, o programa todo aguarda, enquanto na segunda, o programa continua rodando e apenas o código que chamou-a fica esperando. Pode haver algum erro de digitação na segunda, pois fiz de cabeça, mas a idéia é essa.


Responder

27/08/2004

Jc_analista

Este segundo esta certo, mais o application.processmessages não funciona porque estou fazendo um componente. Tem alguma dica ?


Responder

27/08/2004

Fórum Vini

Olá,
para o Application.ProcessMessages funcionar, coloque a unit Forms no Uses.


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar