цикл repeat..until false. Как параллельно с ним че-нить делать.

← →
Igit © (2002-06-07 20:36) [0]

В програие у меня такая фенька:
var time: integer;
begin
repeat
//тут меняются обои
sleep(5*time*6);
until false;
end.
ТАк вот, хочу чтобы во время этого цикла у меня еще чо-нить делалось не обращяя внимания на sleep(5*time*6);

← →
Anatoly Podgoretsky © (2002-06-07 20:41) [1]

ProcessMessages, TThread

← →
hooky-mars © (2002-06-07 21:54) [2]

Application.ProcessMessages

← →
Igit © (2002-06-07 22:47) [3]

А чуть-чуть по-подробнее, pls :)

2hooky-mars © (07.06.02 21:54)
При чём тут Sleep()? Последний полностью останавливает текущую нить.

2Igit © (07.06.02 20:36)
Для задержки используйте GetTickCount()
Для того чтобы процесс не подвисал - Application.ProcessMessages (вставить в тело цикла)

или запускай весь цикл в отдельном потоке или в цикл вставь строчку в цикл application.processmessages, чтобы обрабатывались сообщения, посылаемые окну

цикл repeat..until false. Как параллельно с ним че-нить делать. Найти похожие ветки