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).
Ссылка на скачивание - внизу страницы.