Ubicación actual: Jardín Delphi → Artículos de habilidades → Experiencia de programación → Delphi Retraso
Tiempo de retraso de Delphi
Fecha: 31 de agosto de 2004 Autor:
Retraso del procedimiento (msecs: entero);
varilla
FirstTickCount: Longint;
Comenzar
FirstTickCount: = getTickCount;
repetir
Aplicación. ProcessMessages;
hasta ((getTickCount-FirstTickCount)> = longInt (msecs));
fin;
(Fuente: www.delphhibbs.com)