Графика в 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 с.