Funcao - delay como fazer

Top  Previous  Next

Usando a API Sleep:

=============================

Inclua na seção uses: Windows

 

// Pausa por 1 segundo

Sleep(1000);

 

// Pausa por 10 segundos

Sleep(10000);

 

 

Delay Real

==========

procedure Delay(msecs: Cardinal);

var

  FirstTickCount: Cardinal;

begin

  FirstTickCount := GetTickCount;

  repeat

    Application.ProcessMessages;

  until ((GetTickCount - FirstTickCount) >= msecs);

end;