Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

ProgressBar1   Найти похожие ветки 

← →
KEBZ ©   (2004-04-10 11:37) [0]

Люди потскожите как сделать чтобы через некоторое время
у Progressbarа отнималось по 1position,у.

---

← →
SergP ©   (2004-04-10 11:46) [1]

Используй таймер.

---

← →
jack128 ©   (2004-04-10 11:46) [2]

По таймеру

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ProgressBar1.StepBy(-1);
end;

---

← →
Digitman ©   (2004-04-10 11:47) [3]

Progressbar.Min := 1;
Progressbar.Max := 100;
Progressbar.Position := Max;
MyTimer.Interval := некоторое_время
MyTimer.Enabled := True;

prcocedure TMyForm.MyTimerTimer(...);
begin
 Progressbar.Position := Progressbar.Position -1;
 if Progressbar.Position = Progressbar.Min then
   MyTimer.Enabled := False;    
end;

---

← →
SM_Warlock   (2004-04-10 11:47) [4]

В таймере напиши:
progressbar1.position:= progressbar.position-1;

---

← →
SM_Warlock   (2004-04-10 11:49) [5]

Как обычкно, пока ответ напишешь уже ответят.

---

← →
KEBZ ©   (2004-04-10 11:50) [6]

Пасиба

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.033 c