КАТЕГОРИИ:
АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Компонент Delphi Progressbar
Компонент Delphi Progressbar находиться в Палитре компонентов на странице Win32. Внешний вид представляет собой графическую полосу показывающую процесс работы продолжительной операции. Процесс заполнения полосы идет пропорционально, согласно проценту выполненных действий, слева направо синими кубиками. Цвет компонента изменить нельзя, цвет заполнения имеет синий цвет.
Min и Max свойства компонента, отвечающие за диапазон значений, соответственно минимальной и максимальное значение принадлежащее к целым числам.
Position - позиция, на которой находится в данный момент индикатор.
Рисунок 8 – Пример добавленного на форму компонента Progressbar
Расположим на форме компоненты Label, Button и Progressbar, см. образец на рисунке.
Мы сделаем перебор целых чисел (переменная i) от 0 до 50000 (Max), компонент Label будет показывать какое сейчас обрабатывается число и немного притормаживать выполнение приложения. Proc вычисляет процент проделанной работы.
Напишем обработчик кнопки Пуск.
procedure TForm1.Button1Click(Sender: TObject);var i, proc, Max : integer;begin Max := 50000; for i:=0 to Max do begin proc := ((i * 100) div Max); Label1.Caption := IntToStr(i); ProgressBar1.Position := proc ; Application.ProcessMessages; end;end;
Application.ProcessMessages; - дает возможность нашему приложению не зависнуть в процессе вычисления. В противном случае нам придется дождаться окончания вычислений, после чего мы увидим результат, а до этого приложение не будет подавать признаков жизни.
Дата добавления: 2015-02-10; просмотров: 239; Мы поможем в написании вашей работы!; Нарушение авторских прав |