Putting a pause in a program

Putting a pause in a program

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?

If you’re using Delphi 2.0, use the Sleep procedure. Look it up in thehelp 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 abetter time resolution by using milliseconds as its input.

See also  Comparing different methods of testing your Infrastructure-as-Code

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist