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

выход из цикла ???   Найти похожие ветки 

← →
smolin   (2003-06-19 11:28) [0]

Как сделать, чтоб в работающем цикле происходил опрос кнопок, т.е. цикл пересчитывает какие то значения, а при нажатии на какую нибудь кнопку происходит exit ??? (не получается т.к. пока цикл не завершится никакие кнопки не нажимаются).

---

← →
MBo ©   (2003-06-19 11:31) [1]

Application.ProcessMessages вставь

---

← →
panov ©   (2003-06-19 13:14) [2]

Как обычно - флажок.
for
...
if MyFlag then Exit;
...
end;

При клике на кнопку:

MyFlag := True;

---

← →
Polevi ©   (2003-06-19 13:39) [3]

>panov © (19.06.03 13:14)

+ MBo © (19.06.03 11:31)

---

← →
Anatoly Podgoretsky ©   (2003-06-19 13:42) [4]

+ Break - именно выход из цикла, а не процедуры.

---

← →
dtrn   (2003-06-19 23:09) [5]

var
Mask:boolean;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
I:integer;
begin
Mask:=FALSE;
for I:=1 to 100000 do
begin
Application.ProcessMessages;
Label1.Caption:= IntToStr(I);
if Mask then Exit;
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Mask:=TRUE;
end;

---

← →
Palladin ©   (2003-06-20 00:30) [6]

тебя все ждали

---

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

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



Память: 0.46 MB
Время: 0.016 c