Função de tempo parecida com o Timer ?
26/08/2004
0
alguem pode me ajudar.
Jc_analista
Posts
26/08/2004
Cebikyn
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.
27/08/2004
Jc_analista
27/08/2004
Fórum Vini
para o Application.ProcessMessages funcionar, coloque a unit Forms no Uses.
Clique aqui para fazer login e interagir na Comunidade :)