Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Вниз
прерывание цикла
eraser (2002-01-15 14:38) [0]как мне лучше из основной программы прервать непрерывный цикл по кнопке, а то даже форму не закрыть.
MBo (2002-01-15 14:45) [1]вставь в цикл
Application.ProcessMessages;
eraser (2002-01-15 14:47) [2]там уже такое есть кнопка X нажимается но цикл продолжается и форма не закрывается
Slava (2002-01-15 14:50) [3]В цикле проверяй какую-нибудь глобальную переменную, а
при нажатии на кнопку просто меняй её значение
Vitaly (2002-01-15 14:56) [4]т.е., например, так:
var endLoop: boolean;
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Enabled := false; // чтобы не вызывать
endLoop := false;
caption := "вошли в цикл";
while not endLoop do
application.ProcessMessages;
caption := "вышли из цикла";
button1.Enabled := true; // теперь можно
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
endLoop := true;
end;
Anatoly Podgoretsky (2002-01-15 16:03) [5]eraser (15.01.02 14:47)
А может ты из цикла не выходишь?
eraser (2002-01-15 16:07) [6]в процессе работы мне и не надо выходить а вот как только нажму кнопочку так и надобно
Builder (2002-01-15 16:26) [7]Совет с глобальной переменной правильный. Для этого можно так же использовать SpeedButton.Down - и не нужно глобальной переменной :)
f0rm (2002-01-15 16:30) [8]Break друзья мои
DELPHIMUN (2002-01-15 16:37) [9]Цикл с условием.
Digitman (2002-01-15 17:16) [10]Н-да, это уже чистой воды Паскаль ...
Anatoly Podgoretsky (2002-01-15 17:46) [11]eraser (15.01.02 16:07
Вот про это и спрашиваю. Покажи код цикла и код выхода.
Polevi (2002-01-15 17:59) [12]while(SomeValue=false;SomeValue;Application.ProcessMessages)
{
}
Удобно, не так ли?
Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.73 MB
Время: 0.04 c
