Отправляет email-рассылки с помощью сервиса Sendsay

Delphi. Уроки

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 8.315 RSS
←   Январь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 19-12-2001

Автор
Алексеев Игорь

Статистика

8.315 подписчиков
0 за неделю
←   Все выпуски   →

Delphi. Уроки


Информационный Канал Subscribe.Ru
Уроки по Delphi. Рассылки сайта progs.biz
Рассылка № 42
С Новым Годом и Рождеством!		  
Начало > Delphi > VCL > Урок 41

М. Фленов. Программирование на C++ глазами хакера.
М. Фленов. Программирование на C++ глазами хакера
Заказать на Озоне
Подробнее

Полные версии уроков (с картинками): урок 41.

Delphi. VCL
Урок 41. Компонент Animate

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

На Палитре Компонентов он расположен на вкладке Win32.

Вот пример его использования: разместите на форме экземпляр 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.

Запускаем программу. Рузельтат будет таким, как мы и ожидали.
Рассылки сайта progs.biz
Visual C++, MFC
C# и .NET
VB.NET
ASP.NET new!
Win API
C/C++
Delphi
Java
HTML, PHP, mySQL, WEB-дизайн
Flash MX
C++ Builder
Ассемблер
SQL Server
DirectX
Обзор книг
Обзор программ
Новости сайта progs.biz

PARKING.RU. Качественный ВИРТУАЛЬНЫЙ ХОСТИНГ на платформе Windows(r): поддержка NET, многофункциональная панель управления, аренда бизнес-приложений, сертифицированные специалисты. Управляемый ВЫДЕЛЕННЫЙ ХОСТИНГ на платформе Windows(r): производительные серверы, профессиональная поддержка, аренда ПО Microsoft(r), безопасность, гарантии. http://www.parking.ru
Копирование любых материалов сайта без разрешения авторов и владельцев сайта запрещено.
© 2002-2005 сайт progs.biz
© 2002-2005 Алексеев Игорь
http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.delphilessons		 Отписаться
В избранное