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]

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

Пасиба

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