Форум: "WinAPI";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];

Вниз

кнопкой превать цикл   Найти похожие ветки 

← →
Sergey_n   (2001-12-24 06:36) [1]

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;

Проверил, работает.

---

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

Форум: "WinAPI";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c