Progress bar

[SKS]

в своей программе я использую компонент progressbar как сделать так чтобы, каждый шаг в progressbar отображался в Label? например шаг 1 то в в label например писалось "1%" или "текст1", и так далее. Кто знает подскажите как так реализовать. если можно выложите свой пример. Заранее благодарю!!!

[Stilet]

Ну а где ты изменяешь позицию прогресса?
Там и вписывай в лабель его значение (разве что в процет переводи)

[SKS]

пример можете выложить хотя бы я бы там разобрался.

[Stilet]

Ну наглежь...
Ну ладно вот пример рассчета:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
Caption:=floattostr(100*ProgressBar1.Position/ProgressBar1.Max)+'%';
end;

[SKS]

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

[Mr.Qwerty]

Хм,SKS, а стоит ли заморачиваться если существует такой компонент как Gauge с процентами внутри полосы прогресса?

[SKS]

вы видимо не поняли, мне надо чтобы вместо % содержания показывало любой текст, например progress bar прошел 1% в label писалось "текст1", прошел 2% в label писалось "текст2" и так далее как так реализовать???

[mutabor]

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

вы видимо не поняли, мне надо чтобы вместо % содержания показывало любой текст, например progress bar прошел 1% в label писалось "текст1", прошел 2% в label писалось "текст2" и так далее как так реализовать???

case procent of
  0..10: s:='text1';
  11..20: s:='text2';
  //etc...
end;

[Пепел Феникса]

блин, точно наглежь, Стилет же дал код...уже переделать не можем?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
Caption:='текст'+IntToStr(trunc(100*ProgressBar1.Position/ProgressBar1.Max+0.5));
end;

[BOBAH13]

Ох и жесть, развели тут...

TLabel.Caption := Format('Я тут что-то пишу тра-ля-ля, а осталось %d%%',
 [Round((TProgressBar.Position - TProgressBar.Min) / (TProgressBar.Max - TProgressBar.Min) * 100)]);