[poli-smen]

Сообщение от borockov

Я хочу поставить небольшую задержку перед выполнением этого кода, и что бы во время задержки пробегал прогресбар.

Код:

  ProgressBar1.Position := ProgressBar1.Min;
  while ProgressBar1.Position < ProgressBar1.Max do
  begin
    ProgressBar1.Position := ProgressBar1.Position + 1;
    ProgressBar1.Repaint;
    Sleep(10);
  end;