Função de tempo parecida com o Timer ?

Delphi

26/08/2004

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

Curtidas 0

Respostas

Cebikyn

Cebikyn

26/08/2004

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.


GOSTEI 0
Jc_analista

Jc_analista

26/08/2004

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


GOSTEI 0
Fórum Vini

Fórum Vini

26/08/2004

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


GOSTEI 0
POSTAR