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

Timer   Найти похожие ветки 

← →
GALIM   (2004-06-21 12:00) [0]

Добрый день! Как я понимаю процедура ТTimer-а это отдельный процесс, тогда почему здесь получается вечный цикл???

procedure TForm1.Button1Click(Sender: TObject);
begin
otvet:=true;
timer1.Enabled :=true;
while otvet do
 begin
  caption:="waiting please";
  progressbar1.Position:=progressbar1.Position+1;
  repaint;
  sleep(1);
 end;
timer1.Enabled :=false;
showmessage("ok");
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
otvet:=false;
end;

---

← →
Плохиш ©   (2004-06-21 12:03) [1]

ProcessMessages

---

← →
Рамиль ©   (2004-06-21 12:07) [2]

> Как я понимаю процедура ТTimer-а это отдельный процесс,

С каких это пор?

---

← →
Тимохов ©   (2004-06-21 12:08) [3]

> Как я понимаю процедура ТTimer-а это отдельный процесс

понимаете ошибочно

---

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

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



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