Скачать: CL | DM;

Народ посоветуйте как сделать остановку программы   Найти похожие ветки 

← →
Новичок1 ©   (2005-09-19 13:00) [0]

Например есть кнопка при ее нажатии запускается процедура обработки нажатия этой кнопки, ну программа работает в цикле крутится , как сделать чтобы при нажатии на другую кнопку (или на эту же лучьше ) программа выходила из глухого цикла?

---

← →
TUser ©   (2005-09-19 13:09) [1]

1.  Вытащить цикл в отд. поток и
procedure ButtonOnClick()
begin
 Thread1.Terminate;
end;

2.
Flag:=false;
for i:= .... do
begin
 if Flag then break;
 dowork;
 if i mod 100 = 0 then
   Allpication.ProcessMessages;
end;

procedure BtnOnClick;
begn
Flag:=true;
end;

---

← →
Новичок1 ©   (2005-09-19 13:23) [2]

Вроде понял большое спасибо.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.041 c