Урок 39

Анимационен компонент. Компонентът Animate е проектиран да възпроизвежда AVI файлове във вашата програма.

Ето пример за използването му: поставете екземпляр на Animate във формуляра, два бутона (променете свойството им Caption съответно на Start и Finish), едно падащо поле. За падащия списък променете свойството Items - добавете три реда към него: Custom, CopyFile и FindFile.

За бутони добавете следните манипулатори:

процедура TForm1.Button1Click(Подател: TObject);

// Включете възпроизвеждането на avi файла.

процедура TForm1.Button2Click(Подател: TObject);

// Изключете възпроизвеждането на avi файла.

Смисълът на кода е ясен - чрез промяна на свойството Active разрешаваме или забраняваме възпроизвеждането на avi файла.

За комбинираното поле, в манипулатора на събитие OnChange, добавете следния код.

процедура TForm1.ComboBox1Change(Подател: TObject);

// Пуснете свой собствен avi файл.

if ComboBox1.Text='Custom' тогава

// Тук записваме пътя до някакъв avi файл.

// Възпроизвеждане на стандартен avi файл за копиране.

if ComboBox1.Text='CopyFile' тогава

// Възпроизвеждане на стандартен avi файл за търсене.

if ComboBox1.Text='FindFile' тогава

В този код използваме или конкретен avi файл (свойството FileName за нашия компонент) или един от стандартните Windows avi файлове (за копиране на файлове, за търсене и т.н. - има доста от тях, в нашия пример работим само с два). За да възпроизведем един от стандартните avi файлове на Windows, трябва да напишем една от предварително дефинираните константи в свойството CommonAVI на нашия компонент Animate. Стартираме програмата.

---