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