Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

Как остановить бесконечный цикл? 


vovan13   (2002-04-14 18:17) [0]

Опишу мой вопрос на упрощенном примере.
На форме есть две кнопки "Старт" и Стоп".
При нажатии на "Старт" запускается бесконечный цикл, в теле которого
происходит проверка на условие выхода из цикла - IF U=TRUE then BREAK.
Кнопка "Стоп" и присваивает переменной U значение TRUE, чтобы остановить цикл.
Проблема в том, что после нажатия на "Старт" приложение не реагирует на нажатие других кнопок,
т.е. не вызывается событие onClick кнопки "Стоп".
Что мне нужно сделать, чтобы приложение озывалось на нажатие кнопки "Стоп" во время выполнения бесконечного цикла?



ION T   (2002-04-14 18:35) [1]

В цикл впиши Aplication.ProcessMessages (куда хочешь, я обычно в конце пишу)

К тому-же проверка буля выглядит крассивее без приравнивания:
IF U then BREAK или IF NOT U then BREAK, хотя может это только мое мнение.....



Anatoly Podgoretsky   (2002-04-14 18:36) [2]

Надо обрабатывать сообщение системы в цикле, смотри ProcessMessages




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.033 c
6-81012           Татьяна               2002-02-07 08:01  2002.04.25  
Как соединть сервер, программированный на D4 с клиентом под DOS по IPX


14-81057          fliz                  2002-03-20 09:22  2002.04.25  
Если на машине нет и никогда не было установлено Access, то через BDE можно работать с аксесовской базой. Или я что-то путую?


14-81050          Sound                 2002-03-20 02:00  2002.04.25  
Срочные вопросы


3-80837           Андрей Брусов         2002-04-04 09:13  2002.04.25  
Языковые драйверы в BDE


3-80762           Reticent              2002-04-04 11:25  2002.04.25  
ошибка ODBC ?!