| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
кнопкой превать цикл [D6, Win2k]
Electric © (2001-12-24 05:24:00)Как нажатием кнопки на своей форме прервать цикл в своей программе ?
SergVlad (2001-12-26 20:31:00) [1]Можно обойтись без флага:
..
Application.ProcessMessages();
if (csLButtonDown in btnStop.ControlState) then Exit;
И даже одной кнопкой:
..
Application.ProcessMessages();
if (csLButtonDown in ControlState) then Exit;
Sergey_n (2001-12-24 06:36:00) [2]flgCancel: Boolean; // глобальная переменная(флаг)
procedure TForm1.btnStartClick(Sender: TObject); //Кнопка запуска цикла
var
i: Integer;
begin
flgCancel := False;
for i:=0 to 200000000 do begin
Application.ProcessMessages();
if (flgCancel) then Exit;
end;
end;
procedure TForm1.btnStopClick(Sender: TObject); //Кнопка останова цикла
begin
flgCancel := True;
end;
Проверил, работает.
| |
