Графика в Delphi: Методические указания к лабораторным работам по курсу «Информатика», страница 6

2)  На форму поместите как на рис. 21 компоненты Animate, RadioButton, BitBtn и OpenDialog;

Рисунок 21 – Расположение компонентов

3)  Для имеющихся компонентов установите следующие свойства (табл. 3)

Таблица 3 – Свойства компонентов

Компонент

Свойство

Значение

RadioButton1

Caption

Непрерывно

Checked

True

Enabled

False

RadioButton2

Caption

По кадрам

Enabled

False

BitBtn1

Caption

Открыть

Enabled

False

BitBtn2

Caption

Пуск

Enabled

False

BitBtn3

Caption

< 

Enabled

False

BitBtn4

Caption

> 

Enabled

False

OpenDialog1

Filter

Анимация (*.avi)| *.avi|Все файлы (*.*)|*.*

4)  Создайте обработчик кнопки Открыть как на рис. 22

Рисунок 22 – Обработчик события

5)  Создайте обработчик кнопки Пуск как на рис. 23;

Рисунок 23 – Обработчик события

6)  Создайте обработчик кнопки > как на рис. 24;

Рисунок 24 – Обработчик события

3)  Создайте обработчик кнопки < как на рис. 25;

Рисунок 25 – Обработчик события

4)  Создайте обработчики OnClick радиокнопки Непрерывно и По кадрам как на рис. 26;

Рисунок 26 – Обработчик события

7)  Проверьте работу программы.

3.2 Компонент MediaPlayer

3.2.1 Воспроизведение звука

Задание:

1)  Создайте проект MediaPlayer1;

2)  На форму поместите как на рис. 27 компоненты MediaPlayer, StaticText, BitBtn и OpenDialog;

Рисунок 27 – Расположение компонентов

3)  Для имеющихся компонентов установите следующие свойства (табл. 4)

Таблица 4 – Свойства компонентов

Компонент

Свойство

Значение

BitBtn1

Caption

Открыть

StaticText1

Caption

OpenDialog1

Filter

Музыкальные файлы|*.wav|Все файлы|*.*

MediaPlayer1

EnabledButtons.btPlay

True

EnabledButtons.btPouse

True

EnabledButtons.btStop

True

EnabledButtons.btNext

True

EnabledButtons.btPrev

False

EnabledButtons.btStep

False

EnabledButtons.btBack

True

EnabledButtons.btRecord

False

EnabledButtons.btEject

False

4)  Создайте обработчик кнопки Открыть (рис. 28);

Рисунок 28 – Обработчик события

5)  Проверьте работу программы (рис. 29);

Рисунок 29 – Выполнение программы

3.2.2 Воспроизведение видео

Задание:

1)  Создайте проект MediaPlayer2;

2)  На форму поместите как на рис. 30 компоненты MediaPlayer, StaticText, BitBtn, OpenDialog и Panel;

Рисунок 30 – Расположение компонентов

3)  Для имеющихся компонентов установите следующие свойства (табл. 5);

Таблица 5 – Свойства компонентов

Компонент

Свойство

Значение

BitBtn1

Caption

Открыть

StaticText1

Caption

Panel1

Caption

MediaPlayer1

Display

Panel1

OpenDialog1

Filter

Видео (*.avi)|*.avi|Все файлы (*.*)

5)  Создайте обработчик кнопки Открыть (рис. 31);

Рисунок 31 – Обработчик события

4)  Проверьте работу программы (рис. 32);

Рисунок 32 – Выполнение программы

Библографический список

1)  Фаронов В.В. Delphi. Программирование на языке высокого уровня: Учебник для вузов. – СПб.: Питер, 2003. – 640 с.

2)  Архангельский А.Я. Программирование в Delphi 6. – М.: Бином, 2002. – 1120 с.

3)  Бобровский С. Delphi 5: учебный курс. – СПб.: Питер, 2000. – 640 с.