TPageControl — набор страниц с вкладками

Компонент TPageControl, в отличие от компонента TTabControl, может со­держать несколько перекрывающих друг друга страниц (панелей) класса TTabSheet. Каждая страница выбирается щелчком на связанной с ней вкладке и может содержать свой набор помещенных на нее компонентов. Чтобы на этапе конструирования добавить новую страницу или выбрать ра­нее вставленную, щелкните на компоненте правой кнопкой мыши и выбе­рите в контекстном меню команду New Page (Новая страница), Next Page (Далее страница) или Previous Page (Назад страница). Смена страниц идет циклически, т. е. после показа последней отображается первая и наоборот.

Помимо свойств HotTrack, MultiLine, ScrollOpposite, TabHeight, TabPosition и TabWidth, которые аналогичны одноименным свойствам компонента TTabControl, компонент TPageControl имеет специфические свойства:

Методы компонента TPageControl:

TAnimate — анимация

Компонент TAnimate представляет собой проигрыватель видеоклипов формата AVI (Audio Video Interleaved — чередование аудио и видео). Компонент воспроизводит визуальную часть файла AVI и игнорирует его звуковое сопровождение. Он способен показывать лишь несжатое изображение или {изображение, сжатое по методу RLE (Run-Length Encoding). Изображение воспроизводится в отдельном потоке команд, что освобождает ресурсы программы для выполнения необходимой работы на фоне воспроизведения клипа.

Выполним следующие инструкции:

Скопируйте файл Demos\Coolstuf\Cool.avi в ваш рабочий каталог (каталог Demos располагается в каталоге размещения Delphi).

На пустую форму поместите компоненты Animate, ProgressBar, Timer-(вкладка System) и кнопку BitBtn. Таймер необходим для имитации достаточно длительного по времени процесса, который будет отображаться в-индикаторе ProgressBar на фоне вращающейся надписи "COOL" в компоненте Animate .

Установите в свойство Enabled компонента Timer значение False, а в-его же свойство interval — значение 1000. Поместите в свойство visible-компонента ProgressBar значение False и сохраните форму в том же-каталоге, куда вы скопировали файл Cool.avi.

Создайте обработчики событий onСlick кнопки и onTimer таймера, как показано ниже.

procedure TForml.BitBtnlClick(Sender: TObject );

begin

Animatel.FileName := 'cool.avi'; // Указываем файл с клипом

Animate1.Active := True; // Запускаем клип

ProgressBar1.Show; // Показываем индикатор

Timer1.Enabled := True; // Включаем таймер

end;

procedure TForml.TimerlTimer(Sender: TObject);

begin

ProgressBar1.Position := ProgressBar1.Position + 1;

if ProgressBar1.Position >= ProgressBar1.Max then begin

Timer1.Enabled := False; // Выключаем таймер

ProgressBar1.Position := 0; // Готовим новый запуск

ProgressBar1.Hide; // Прячем индикатор

Animatel.Stop // Останавливаем клип

end;

end;

Свойства компонента TAnimate:

С помощью свойства commonAvi можно заставить компонент показывать один из стандартных видеоклипов.

Методы компонента TAnimate перечислены в таблице.

Методы компонента TAnimate:

События компонента TAnimate:

TTrackBar— ползунок

Компонент класса TTrackBar предназначен для плавного изменения число­вой величины. Он во многом схож с элементом управления TScrollBar и отличается от него, в основном, оформлением.

Свойства компонента TTrackBar:

С помощью следующего метода метка устанавливается в позицию, опреде­ляемую значением value: procedure SetTick(Value: Integer);

• ⇐ Назад
• 1
• 2
• 3
• 4
• 5
• 6
• 789
• 10
• 11
• 12
• 13
• 14
• 15
• 16
• Далее ⇒