Localização atual: Delphi Garden → Habilidades Artigos → Experiência de Programação → Delphi Atraso
Tempo de atraso de Delphi
Data: 31 de agosto de 2004 Autor:
Atraso no procedimento (MSECS: INTERGER);
var
FirstTickCount: Longint;
Começar
FirstTickCount: = getTickCount;
repita
Application.processMessages;
até ((getTickCount-FirstTickCount)> = longint (msecs));
fim;
(Fonte: www.delphhibbs.com)