Проблема с Sleep!

[k1r1ch]

У меня такая проблема: каждую секунду значение Label1.Caption должно уменьшаться на 1. Я написал цикл:

for i := 1 to 20 do
  begin
  TextNum.Caption := IntToStr(StrToInt(TextNum.Caption) - 1);
  Sleep(1000);
  end;

Но при его выполнении происходит задержка в 20 сек, в течение которых прога зависает, а потом значением Label'а сразу становится 0.
Вопрос: как сделать, чтобы задержка выполнялась не сразу и не зависала программу?

[__STDC__]

ну, возможно стоит использовать таймер

[k1r1ch]

А можно чуть поподробней? Про таймер? Я только-только начал изучать программирование...

[__STDC__]

ну кинуть на форму таймер с вкладки System (у меня делфи 7), поставите enabled у него в false и написать как-нибудь так

procedure TForm1.Button1Click(Sender: TObject);

begin
  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TextNum.Caption := IntToStr(StrToInt(TextNum.Caption) - 1);
  if (TextNum.Caption = '0') then Timer1.Enabled := false;
end;

[crystalbit]

после

 Sleep(1000);

поставь

Application.ProcessMessages

и будет тебе счастье

только да, программа будет подвисать

upd.
как вариант в отдельном потоке или таймер, или еще так:

for i := 1 to 20 do
begin
  TextNum.Caption := IntToStr(StrToInt(TextNum.Caption) - 1);
  for k:=1 to 100 do begin
    Sleep(10);
    Application.ProcessMessages;
  end;
end;

[DeKot]

Цикл можно "обойти" :

procedure TForm1.FormPaint(Sender: TObject);
begin
  if (StrToInt(Label1.Caption)) <= 0 then Label1.Caption:= '0'
  else
  begin
    Label1.Caption:= IntToStr(StrToInt(Label1.Caption) -1);
    Sleep(1000);
  end;
end;

После then вместо Label1.Caption:= '0' можно вставить переходк к какой либо другой процедуре программы.
ЗЫ: начальное значение Label1.Caption (обязательно числовой тип - integer, byte )устанавливаем в Инспекторе объектов при проектировании.

[k1r1ch]

С таймером вот такая ошибка:
[Error] Unit2.pas(40): Undeclared identifier: 'Timer1Timer'
Да и вообще, тут же цикла нет, по идее действие будет один раз выполняться? Или сама процедура как цикл?
2crystalbit: В обоих вариантах все то же самое (то есть зависание).
2DeKot: А тут действие всего один раз выполняется и все.

[FaTaL]

Вот так всё прекрасно работает:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 20 downto 0 do
    begin
      Label1.Caption := IntToStr (i);
      sleep (1000);
      Application.ProcessMessages;
    end;
end;

[DeKot]

To k1r1ch

2DeKot: А тут действие всего один раз выполняется и все.

.
А ты программу с этим кодом запускал? На форме значение в Label1 каждую сек. уменьшается на 1 от заданного в Инспекторе, а при достижении 0 просто постоянно висит 0.Код то выполняется в процедуре FormPaint.

[hoza_syl]

А так чтоли нельзя?:

 var  h: THandle;
begin

 h:=CreateEvent(nil,true,false,''); //создаем пустое событие
for i := 1 to 20 do
  begin
  TextNum.Caption := IntToStr(StrToInt(TextNum.Caption) - 1);
   WaitForSingleObject(h,1000); //задержка в 30 сек
  end;
 closeHandle(h); //уничтожаем его