Немного об Progress Bar Многие новички Delphi задаются вопросом как сделать что-бы прогресс бар 'тикал'. Вот сейчас мы рассмотрим компонент ProgressBar со страницы библиотеки Win32, предназначенную для отображения в стиле Windows 95/98 хода процессов, занимающих заметное время, например, копирования больших файлов, настройку приложения, установку приложения на компьютере и т.п. Пример хода процесса компонентами ProgressBar : Основные свойства ProgressBar'a : Max - Максимальное значение позиции (Position, Progress), по умолчанию — 100% Min - Начальное значение позиции (Position, Progress) Orientation - Ориентация шкалы компонента: pbHorizontal — горизонтальная, pbVertical — вертикальная Smooth - Непрерывное (при значении true) или дискретное отображение процесса. На рисунке задано Smooth = true Step - Шаг приращения позиции, используемый в методе StepIt. Значение по умолчанию — 10. --------------------------------------------- Вот пример работы ProgressBar'a с таймером и без таймера + исходник // если таймер то интервал допустим 1000 - обновление каждую секунду // для прогрессбара max = 60 - минута begin Timer.Enabled := ProgressBar.Position < ProgressBar.Max; ProgressBar.Position := ProgressBar.Position + 1; end; -------------------------------- // чтобы без таймера var k: DWORD; begin ProgressBar.Max := 60; ProgressBar.Min := 0; ProgressBar.Position := ProgressBar.Min; k := GetTickCount; while k + (60 * 1000 {минута}) < GetTickCount do begin ProgressBar.Position := (GetTickCount - k) / 1000; // тут обычно Application.ProcessMessages; end; end; Исходник . Спасибо за внимание
мм, кодес ниочём)) если решил показывать примеры работы с компонентами, то описывай все, хотя бы из стандартных панелек ) А так.. где-то тут был топик "Проги от скуки", наверно это туда надо было
_GlaD1aT(OR)_ может писал ты и сам, но пойми "статья" уж очень мелочная... статьи надо писать о том о чём мало материала... а уж о прогрес баре то зачем? даже если материала по нему нет то там интуитивно можно самому до всего дойти.. всё ж понятно и так как день божий =)... короче ни*уя не зачёт