Member Avatar for tucode

hi,is there a delay function in delphi?coz' i dont want to use sleep because sleep is not doing right it hangs the program.

  • 2 Contributors
  • 1 Reply
  • 65 Views
  • 9 Hours Discussion Span
  • Latest Post Latest Post by Wolfgan
Member Avatar for Wolfgan 
procedure Wait(ms: integer);
var
  bt: DWORD;
begin
  bt := GetTickCount;
  while (GetTickCount - bt) < ms do
    Application.ProcessMessages;
end;
Edited by Wolfgan because: n/a
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.