Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Pascal
Expertise: Beginner
May 9, 1997

Putting a pause in a program

Question:
I have a simple animation on a form created by turning bitmaps on and off in sequence. How can I pause between frames? There is no wait or pause command.

I can create a nested for-loop but this seems a clumsy way to solve the problem. There must be a simple way to delay the program for an exact number of seconds. Any ideas?

Answer:
If you're using Delphi 2.0, use the Sleep procedure. Look it up in the help file. If you're using Delphi 1.0, you can use the procedure below:

procedure Sleep(SleepSecs : Integer);
var
  StartValue : LongInt;

begin
  {Initialize vars}
  StartValue    := GetTickCount; {Get value of current milliseconds elapsed}
  While ((GetTickCount - StartValue) <= (SleepSecs * 1000)) do
    Application.ProcessMessages;
end;
It does the same thing as Delphi 2.0's sleep, though D2's Sleep offers a better time resolution by using milliseconds as its input.
DevX Pro
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date