Fórum Função de tempo parecida com o Timer ? #248373
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.
alguem pode me ajudar.
Jc_analista
Curtir tópico
+ 0
Responder
Posts
26/08/2004
Cebikyn
Tem duas opções:
e
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.
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
Gostei + 0
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
Gostei + 0
27/08/2004
Fórum Vini
Olá,
para o Application.ProcessMessages funcionar, coloque a unit Forms no Uses.
para o Application.ProcessMessages funcionar, coloque a unit Forms no Uses.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)