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) Проверьте работу программы.
Задание:
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 – Выполнение программы
Задание:
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 с.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.