Аналог процедуры Delay в Delphi
Аналог процедуры Delay в Delphi
Аналог процедуры Delay в Delphi procedure TForm1.Delay(msecs : Longint); var FirstTick : longint; begin FirstTick:=GetTickCount; repeat Application.ProcessMessages; {для того чтобы не "завесить" Windows} until GetTickCount-FirstTick >= msecs; end;