Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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



Страницы: 1 вся ветка

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

Наверх





Память: 0.44 MB
Время: 0.007 c
3-80762
Reticent
2002-04-04 11:25
2002.04.25
ошибка ODBC ?!


1-80891
hooky-mars
2002-04-14 16:50
2002.04.25
Текстовый Фаил


1-80962
pls
2002-04-12 10:50
2002.04.25
TControl.Hint???


3-80836
Alexsys
2002-04-05 23:38
2002.04.25
GRID + несколько колонок в внем же...


14-81048
FLIZ
2002-03-18 19:02
2002.04.25
Подскажите, откуда можно скачать перекодировщик Dos/Win, который сможет обработать файл размером 1Гб





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский