Главная Всё о Delphi Регистрация

Вход

Приветствую Вас Гость | RSSВторник, 21.11.2017, 05:29
Меню сайта

Категории каталога
Начинающим [44]
Материалы для начинающих
Трюки [2]
Трюки
Разное [94]
Материалы на разные темы

Наш опрос
Нашли ли вы нужную вам информацию на этом сайте?
Всего ответов: 56

Каталог статей
Главная » Статьи » Начинающим

Урок 39. Компонент Animate

Компонент 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. Запускаем программу.

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

Категория: Начинающим | Добавил: Дубин (04.09.2007) | Автор: Дубин Михаил Олегович
Просмотров: 936 | Рейтинг: 0.0/0 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

Статистика

Рейтинг@Mail.ru

Реклама

Copyright MyCorp © 2017Сайт управляется системой uCoz