Fórum Função Sleep #158731
08/05/2003
0
Flw!
:wink:
Anormal
Curtir tópico
+ 0Posts
08/05/2003
Aroldo Zanela
A função Sleep é uma API do Windows (Kernel32.dll) e é declarada na unit SysUtils.
Gostei + 0
08/05/2003
Anormal
procedure TForm1.imgClick(Sender: TObject);
var
topoinicial, topofinal : integer;
begin
topoinicial := img.Top;
topofinal := topoinicial+100;
while (topoinicial <> topofinal) do
begin
img.Top := topoinicial;
topoinicial := topoinicial + 1;
sleep(10);
end;
end;
[quote:2350161b14=´Aroldo Zanela´]Colega,
A função Sleep é uma API do Windows (Kernel32.dll) e é declarada na unit SysUtils.[/quote:2350161b14]
Gostei + 0
08/05/2003
Marcelo Saviski
procedure espera(miliseconds : integer); num : integer; begin num := gettickcount; while num + miliseconds > gettickcount do begin application.progressmessages; end; end;
Gostei + 0
08/05/2003
Fmd
A função Sleep funciona do Delphi7, mas você tem que definir um tempo maior, pois segundo seu código, o tempo é de 10 milissegundos, valor que não se percebe facilmente.
Gostei + 0
08/05/2003
Anormal
A função Sleep funciona do Delphi7, mas você tem que definir um tempo maior, pois segundo seu código, o tempo é de 10 milissegundos, valor que não se percebe facilmente.[/quote:35dd546f7e]
Não que seja isto, porque eu posso até colocar 5000!
O problema é que ele aguarda 5 segundos e depois sim que é executado o procedimento.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)