Текущий архив: 2004.04.25;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.101 c
