Демонстрация возможностей компонента Animate

var i:word; procedure TForm1.BWindClick(Sender: TObject); begin Animate1.Visible := true; i := 1; Animate1.CommonAVI := aviFindFolder; Animate1.Active := true; end; procedure TForm1.BStopClick(Sender: TObject); begin Animate1.Stop; end; procedure TForm1.BFileClick(Sender: TObject); begin if OpenDialog1.Execute then with Animate1 do begin i := 9; FileName := OpenDialog1.FileName; Visible := true; Active := true; end; end; procedure TForm1.Animate1Stop(Sender: TObject); begin Inc(i); with Animate1 do begin case i of 2: CommonAVI := aviFindFile; 3: CommonAVI := aviFindComputer; 4: CommonAVI := aviCopyFiles; 5: CommonAVI := aviCopyFile; 6: CommonAVI := aviRecycleFile; 7: CommonAVI := aviEmptyRecycle; 8: CommonAVI := aviDeleteFile; end; if ithen Active := true else Visible := false; end; end;

Обработчик события OnClick кнопки BWind задает начальное значение свойства CommonAVI, сбрасывает счетчик на 1, делает компонент Animate1 видимым и активизирует его.

Обработчик события OnClick кнопки BStop останавливает воспроизведение методом Stop.

Обработчик события OnStop компонента Animate1 увеличивает счетчик на 1, в зависимости от значения счетчика загружает в компонент соответствующий клип Windows и активизирует компонент. Если все клипы уже воспроизведены, то компонент делается невидимым.

Обработчик события OnClick кнопки BFile загружает в компонент видео файл, выбранный пользователем.

Выполните приложение и проверьте его в работе. В качестве видео файла можете использовать файл ...\Demos\Coolstuf\Cool.avi, поставляемый с примерами Delphi (на Рисунок 4.22 изображен момент воспроизведения именно этого файла).

Содержание раздела