Função Sleep

Delphi

08/05/2003

Função Sleep não funciona no Delphi 7 ?


Flw!
:wink:


Anormal

Anormal

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

08/05/2003

Colega,

A função Sleep é uma API do Windows (Kernel32.dll) e é declarada na unit SysUtils.


GOSTEI 0
Anormal

Anormal

08/05/2003

Sim, mas não funciona no meu Delphi 7... Este procedure :

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
Marcelo Saviski

Marcelo Saviski

08/05/2003

[color=blue:89c6b69251]tente isso:[/color:89c6b69251]
procedure espera(miliseconds : integer);
num : integer;
begin
num := gettickcount;
while num + miliseconds > gettickcount do
begin
application.progressmessages;
end;
end;



GOSTEI 0
Fmd

Fmd

08/05/2003

Sim, mas não funciona no meu Delphi 7... Este procedure : 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:1b1c2bb5f3=´Aroldo Zanela´]Colega, A função Sleep é uma API do Windows (Kernel32.dll) e é declarada na unit SysUtils.
[/quote:1b1c2bb5f3]

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
Anormal

Anormal

08/05/2003

[quote:35dd546f7e=´Anormal´]Sim, mas não funciona no meu Delphi 7... Este procedure : 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:35dd546f7e=´Aroldo Zanela´]Colega, A função Sleep é uma API do Windows (Kernel32.dll) e é declarada na unit SysUtils.
[/quote:35dd546f7e]

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
POSTAR