[qwerty1992]

Разработать приложение для демонстрации работы с ProgessBar.
Предоставить пользователю следующие возможности:
1) установка минимального значения
2) установка максимального значения
3) установка размера шага
4) установка (индикация) текущего положения
5) запуск движения
6) установка движения
необходимо, что бы 1) 2) 3) 4) задавались через SpinEdit, max отдельно, min отдельно)))

[AND_REY]

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 Min, Max, N: Integer;
begin
 Min:= 0;    // установка минимального значения
 Max:= 100;  // установка максимального значения
 N:= 5;      // установка размера шага
 ProgressBar1.Min:= Min;
 ProgressBar1.Max:= Max;
 ProgressBar1.Step:= Max div N;
 ProgressBar1.StepIt; // запуск движения (увеличение на один шаг).
end;

[qwerty1992]

Большое спасибо.

[qwerty1992]

а можно сделать так, что бы значения задавались с TrackBar?

[iGeTT]

Код:

procedure TForm1.sTrackBar1Change(Sender: TObject);
begin
  sProgressBar1.Position:=sTrackBar1.Position;
end;

Не забудь синхронизировать шаг.