Форум: "WinAPI";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Внизкнопкой превать цикл Найти похожие ветки
← →
Electric (2001-12-24 05:24) [0]Как нажатием кнопки на своей форме прервать цикл в своей программе ?
← →
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;
Проверил, работает.
← →
SergVlad (2001-12-26 20:31) [2]Можно обойтись без флага:
..
Application.ProcessMessages();
if (csLButtonDown in btnStop.ControlState) then Exit;
И даже одной кнопкой:
..
Application.ProcessMessages();
if (csLButtonDown in ControlState) then Exit;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.023 c