Как остановить цикл кнопкой стоп (без использования потоков)

[poiuyt555]

Здравствуйте.
На форме есть кнопка пуск цикла и стоп. Потоки не используются.
Но кнопка стоп не нажимается, пока весь цикл не закончится.
Application.ProcessMessages; не помогло - оно только не дает возникнуть окну (не отвечает...), но кнопка на форме все равно нажимается только после окончания всего цикла.

Как сделать, чтобы можно было остановить цикл кнопкой стоп в такой ситуации?

[Padre_Mortius]

самый простой вариант это в цикл вставляете проверку переменной, значение которой меняется при нажатии на кнопку.

[poiuyt555]

самый простой вариант это в цикл вставляете проверку переменной, значение которой меняется при нажатии на кнопку.

Я так и думал, но я пытался при нажатии на кнопку стоп менять капшион формы (для проверки - сработало нажатие или нет) и это не срабатывало.
Получается переменная изменится все равно?

[SSerge]

Application.ProcessMessages; не помогло

Оно ГДЕ применялось?
Управление на обработку сообщений придется передавать изнутри цикла, при этом вы серьезно задержите ваши расчеты.
И что-то мне говорит, что если цикл вызван из процедуры, привязанной к нажатию другой кнопки, то всё управление формой будет блокироваться, пока не будет произведен выход из уже задействованной процедуры-обработчика. М.б. и не прав, проверять на практике что-то неохота.

ps. Я бы посадил нужную кнопку на другую форму и запустил её перед входом в цикл в не-диалоговом режиме

[Kemet]

Видимо, лучше всего будет повесить на таймер нужную процедуру, а на кнопки переключатель состояния (старт/стоп)

[alexs]

Делаешь цикл:

Код: Выделить всё

stop:=false;
while not stop do
begin
  ----Тут твой код
  Application.ProcessMessages; //Это чтобы кнопка нажималась
end

В обработчике нажатия кнопки пишешь:

Код: Выделить всё

stop:=true;

[poiuyt555]

Спасибо за ответы.

если цикл вызван из процедуры, привязанной к нажатию другой кнопки, то всё управление формой будет блокироваться, пока не будет произведен выход из уже задействованной процедуры-обработчика

Да так и есть, так и происходит.
Видимо надо использовать TThread. Другие варианты не совсем подходят.

[alexs]

Чтобы не блокировалось - надо Application.ProcessMessages !

[poiuyt555]

Чтобы не блокировалось - надо Application.ProcessMessages !

В итоге пока так и сделал, поставил Application.ProcessMessages в цикле в одно из условий (туда цикл заходит но не на каждой итерации).
Кнопка стоп заработала.