Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;




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




Наверх





Память: 0.71 MB
Время: 0.025 c
14-79446          Aleksandr             2002-01-08 15:16  2002.02.25  
Как выдернуть из упаковки инсталлшилда файлы?


6-79420           SemFLY                2001-12-02 01:14  2002.02.25  
Как удаленно приконектить диск, та как WNetConnectionDialog приконектит если доступ есть :-(


1-79315           shelest               2002-02-06 12:20  2002.02.25  
Delphi и Informix


7-79487           Georg                 2001-11-21 11:23  2002.02.25  
Декомпилятор


3-79282           knyaz17               2002-01-31 12:23  2002.02.25  
Как сохранить DBF файл в кодировке CP 866?