Текущий архив: 2002.10.10;
Скачать: CL | DM;

Вниз

бесконечный цикл   Найти похожие ветки 

← →
Yasha   (2002-09-28 15:18) [0]

как сделать бесконечный цикл, который прерывался бы, например нажатием TButton

---

← →
Внук ©   (2002-09-28 15:22) [1]

var flag:boolean
...
flag:=false;
...
while not flag do
begin
Appication.ProcessMessages;
end;
...
procedure TForm1.MyCoolButtonClick(...);
begin
flag:=false;
end;

P.S. А чем цикл выборки сообщений не вечный, тоже прерывается нажатием TButton, если по этому нажатию послать WM_QUIT :))

---

← →
evgeg ©   (2002-09-28 15:27) [2]

Вызывать в теле цикла Application.ProcessMessages и проверять флажок, который устанавливается по нажатию книпки.


procedure TForm1.Button1Click(Sender: TObject);
var i, k: integer;
begin
FBreak := false;
while (true) do
begin
Application.ProcessMessages;
if FBreak then
break;
if ProgressBar1.Position = ProgressBar1.Max then
ProgressBar1.Position := ProgressBar1.Min;
ProgressBar1.Position := ProgressBar1.Position + 1;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FBreak := true;
end;


---

← →
evgeg ©   (2002-09-28 15:28) [3]

> книпки.
кнопки.

---

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

Текущий архив: 2002.10.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c