Delphi

Delirium · Отправлено: **01:19, 05-03-2012** | #2

NickDang, в чем проблема то? Увеличиваем прогресс бар; когда его значение станет равно максимальному, отнимаем значения и так по кругу.

NickDang · Отправлено: **15:59, 05-03-2012** | #3

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
progressbar1.Position :=  progressbar1.Position + 5;
if progressbar1.Position = 100 then timer1.Enabled := false;
PostMessage(ProgressBar1.Handle, $0409, 0, clGray);
end;

lxa85 · Отправлено: **16:37, 05-03-2012** | #4

Можно и так. Я бы правда условие поставил больше или равно. Т.к. значение прогресбара может и перейти за 100 (ну мало ли), не остановив таймер.
А еще наверно правильней - посмотреть по внимательней свойства ProgressBar. У него должно быть много параметров, отвечающих за "размер прогресса" в том числе.

NickDang · Отправлено: **18:53, 05-03-2012** | #5

какой код нужен чтобы значение обнулялось после 100 и заново продолжало...

Delirium · Отправлено: **02:34, 06-03-2012** | #6

NickDang, ты вообще язык этот знаешь хоть немного или нет? Что, значение прогрессбара в ноль поставить, это такой сложный процесс?

NickDang · Отправлено: **14:24, 06-03-2012** | #7

я учусь ) с паскалем немного разобрался.
ну приравнять нулю, значит это дописать в конце, и тогда он останавливается там и не продолжает...
progressbar1.Position :=0

opel431 · Конфигурация компьютера

Цитата NickDang:

и тогда он останавливается там и не продолжает »

Так измените код NickDang:

progressbar1.Position := progressbar1.Position + 1;
if progressbar1.Position >= 100 then
progressbar1.Position =0;

В свойствах таймера Interval:=100;

Получите бесконечный цикл! Вообще, смотрите свойства Max, Min, Step.

Судя по вложению, Вы хотели получить прогресс с бесконечным циклом иного варианта. Не знаю, в какой версии Вы работаете, поэтому предложу простое - поищите Графический ProgressBar для приложения Delphi.