![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Добрый день, форумчане.
Как сделать, чтобы по указанному числу секунд в SpinEdit заполнялся Gauge? |
#2
|
||||
|
||||
![]() Цитата:
Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin Gauge1.AddProgress(1); if Gauge1.Progress = SpinEdit1.Value then Timer1.Enabled:= false; end; procedure TForm1.Button1Click(Sender: TObject); begin Gauge1.MaxValue:= SpinEdit1.Value; Timer1.Interval:= 1000; Timer1.Enabled:= true; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
![]() А чтобы шаг = 1%? Получается прогресс скачет кусками большими.
|
#4
|
||||
|
||||
![]() Код:
procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled:=False; Timer1.Interval:=50; Gauge1.MinValue:=0; Gauge1.MaxValue:=MulDiv(SpinEdit1.Value, 1000, Timer1.Interval); Gauge1.Progress:=0; Timer1.Enabled:=True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Gauge1.AddProgress(1); if Gauge1.Progress=Gauge1.MaxValue then Timer1.Enabled:=False; end; Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
GrabbeR (27.03.2017)
|
#5
|
|||
|
|||
![]() Оно, только почему-то по окончании интервала в 10 секунд прогресс только на 80 с чем-то %.
|