BorlanD Russian Сommunity

Компонент Animate. Компонент Animate предназначен для проигрывания AVI-файлов в вашей программе.

Вот пример его использования: разместите на форме экземпляр Animate, две кнопки (измените для них свойство Caption на Start и Finish соответственно), один combobox. Для combobox измените свойство Items - добавьте в него три строчки: Custom, CopyFile и FindFile.

 

Для кнопок добавьте следующие обработчики:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

            // Включаем проигрывание avi-файла.

            Animate1.Active:=true;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

             // Выключаем проигрывание avi-файла.

            Animate1.Active:=false;

end;

 

Смысл кода понятен - путем изменения свойства Active мы включаем или отключаем проигрывание avi-файла.

Для combobox в обработчике события OnChange добавьте следующий код.

 

Код:

 

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

            // Проигрывание собственного avi-файла.

             if ComboBox1.Text='Custom' then

            begin

            Animate1.CommonAVI:= aviNone;

            // Тут пишем путь к некоторому avi-файлу.

            Animate1.FileName:='C:\avi\ICQworking.avi';

            end;

            // Проигрывание стандартного avi-файла для копирования.

            if ComboBox1.Text='CopyFile' then

            begin

            Animate1.CommonAVI:= aviCopyFile;

            end;

            // Проигрывание стандартного avi-файла для поиска.

            if ComboBox1.Text='FindFile' then

            begin

            Animate1.CommonAVI:= aviFindFile;

            end;

            // Включение анимации.

            Animate1.Active:=true;

end;

В этом коде мы либо используем конкретный avi-файл (свойство FileName для нашего компонента) или один из стандартных avi-файлов Windows (для копирования файлов, для поиска и т. п. - их достаточно много, в нашем примере мы работаем только с двумя). Для проигрывания одного из стандартных avi-файлов Windows мы должны записать одну из предопределенных констант в свойство CommonAVI нашего компонента Animate. Запускаем программу.

Всё на этом урок закончен.

Просмотров: 2437 | Категория: Delphi 7 | Дата: 11.05.2008