| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Timer

GALIM ©   (2004-06-21 12:00:00) 

Добрый день! Как я понимаю процедура Т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:08:00) [1]

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

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

---

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

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

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

---

Плохиш   (2004-06-21 12:03:00) [3]

ProcessMessages

---

Наверх