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-а это отдельный процесс,

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

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

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

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