Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Уважаемые эксперты какое свойство, или, может быть, это по-другому делается, рисует в ProgressBar квадратики?
Цель - связать таймер с ProgressBar.

Спасибо.

Вопрос задал: Ilia Ermakov (статус: 1-ый класс) Вопрос отправлен: 28 июля 2006, 20:38 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Косолапов Дмитрий Юрьевич

Не помню точно, у прогресс-бара есть свойство либо Value, либо Position, либо Progress, либо что-то наподобие... Поэтому в событии OnTimer твоего таймера надо напиать как-то так: ProgressBar1.Progress:=NewPos, где NewPos - переменная, в которой хранится новое положение прогресс-бара. Также должны быть свойства, определяюшие интервал значений прогресс-бара.

Ответ отправил: Косолапов Дмитрий Юрьевич (статус: 8-ой класс) Время отправки: 28 июля 2006, 20:57

Ответ #2. Отвечает эксперт: Alexander A. Gribanov

У компонента TProgressBar есть свойства Min, Max и Position. Они задают минимальное, максимальное значение и текущую позицию соответственно. За то, чтобы рисовать "квадратики" или "не квадратики" отвечает свойство Smooth.
Для того, чтоб по таймеру показывать позицию ProgressBar'а нужно, например:
1. Помещаем на форму ProgressBar. Устанавливаем свойство Min в 0, Max в 10, Position в 0.
2. Помещаем на TTimer, устанавливаем Interval в 100 (0.1с) и в событии OnTimer увеличиваем значение ProgressBar.Position на 1. Проверяем его на равенство 10, и, если Position равен 10 останавливаем таймер (Timer.Enabled := False) и выдаём какое-то сообщение.
Всё. Это пример ProgressBar'а, заполняющегося в течение 1с.
P.S.: В встоенную систему помощи заглядывать пробовал ?.. Если не знаешь английского, то его пора начинать учить...

Ответ отправил: Alexander A. Gribanov (статус: 2-ой класс) Время отправки: 31 июля 2006, 11:37 Оценка за ответ: 5

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.