Лекция: Тестовый пример воспроизведения видеоклипа

Установите свойство Visible компонента Animateв false. Это надо для того, чтобы изображение возникало только тогда, когда произойдет соответствующее событие: копирование, показ мультипликации и т. д. СвойствоAutosize установите – вfalse, и свойство Activ установите – в false.

Добавьте:

1. Кнопку OK, которая будет начинать процесс воспроизведения.

2. Компонент Timer, который служит для отсчета интервалов времени. Таймер включается при установке значения True в его свойство Enabled и будет включен пока его свойство Enabled не примет значение false.

3. Компонент ProgressBar1, предназначенный для отображения хода выполнения длительного по времени процесса, который начинается с момента срабатывания таймера. Свойства max и min — значения диапазона изменения. Свойство Position содержит текущее значение отображаемой величины (см. рис.7.9).

Напишем два обработчика событий procedureTForm1.BitBtn1Click– запускает процесс и procedure TForm1.Timer1Timerзавершает процесс и подготавливает компоненты к следующему запуску.

procedure TForm1.BitBtn1Click(Sender: TObject);

Begin

Animate1.FileName:='cool.avi';

Animate1.Active:=True;

ProgressBar1.Show;

Timer1.Enabled:=True;

End;

procedure TForm1.Timer1Timer(Sender: TObject);

Begin

ProgressBar1.Position:= ProgressBar1.Position + 1;

if ProgressBar1.Position >= ProgressBar1.Max