Problema: O Pascal para DOS possui uma procedure chamada Delay que serve para pausar o processamento atual em "n" milésimos de segundo. Como implemento isto no Delphi? Solução: Simles. Veja: procedure Delay(MSec: Cardinal); var Start: Cardinal; begin Start := GetTickCount; repeat Application.ProcessMessages; until (GetTickCount - Start) >= MSec; end; === Exemplos de uso: === Delay(1000); { Aguarda 1 segundo } Delay(5000); { Aguarda 5 segundos } Delay(60000); { Aguarda 60 segundos - 1 minuto }
O conteúdo desta página pode ajudar alguém? Compartilhe!