Текущий архив: 2004.07.04;
Скачать: 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 вся ветка
Текущий архив: 2004.07.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.046 c
