Альтернатива для Sleep()
, но чтобы приложение не зависало
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [18.119.111.9] |
|
|
Альтернатива для Sleep()
, но чтобы приложение не зависало
|
Сообщ.
#1
,
|
  |
Часто требуется организовать задержку в выполнении кода, но что бы при этому приложение не зависало, могло реагировать на сообщения Windows, в часности могло перерисовываться..
  procedure Delay(ATimeout: Integer); var t: Cardinal; begin while ATimeout > 0 do begin t := GetTickCount; if MsgWaitForMultipleObjects(0, nil^, False, ATimeOut, QS_ALLINPUT) = WAIT_TIMEOUT then Exit; Application.ProcessMessages; // Пришли новые сообщения Windwos , обрабатываем их.. dec(ATimeout, GetTickCount - t); end; end; Автор: jack128 |
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0147 ] [ 16 queries used ] [ Generated: 27.04.24, 19:19 GMT ]