Записная книжка на Delphi 7 — страница 11

  • Просмотров 10093
  • Скачиваний 677
  • Размер файла 147
    Кб

mediaplayer1.Open;//открыть файл end; Теперь в кнопку «Закрыть» нужно вставить оператор ‘Close;’. Всё на этом создание программы «Media Player» закончен. Теперь можно скомпилировать и запустить программу. Сохраните этот проект. – 16 – «CD-Rom» Постановка задачи   Так как нам нужно только открыть или закрыть лоток CD-Rom’а, то можно использовать только 2 кнопки, потому что при закрытии лотка CD-Rom’а можно и закрыть программу. Создание интерфейса   В

свойстве Caption формы введём текст: ‘CD-Rom’, а в свойстве формы Name введём имя формы: ‘CDRom’. Перенесём 2 кнопки BitBtn на форму. Подпишим каждую кнопку, например так: «Открыть CD» и «Закрыть CD». Выставим для каждой кнопки соответственную пиктограмму. Описание процедур и функций   Чтобы работала программа нужно подключить модуль MMSystem в USES формы. Для кнопки которая будет открывать лоток, нужен следующий код: mciSendString('Set cdaudio door open wait', nil, 0,

handle); Для кнопки которая будет закрывать лоток, нужен следующий код: mciSendString('Set cdaudio door closed wait', nil, 0, handle); Всё на этом создание программы «CD-Rom» закончен. Теперь можно скомпилировать и запустить программу. Сохраните этот проект. «Напомнить о…» Постановка задачи Так как нам нужно чтобы через заданное время, выводилось какое либо сообщение, то нам нужно два компонента для выбора промежутка времени (часы и минуты), компонент для ввода

нужного сообщения. Так как ещё будет звуковой сигнал, то проще всего будет использовать компонент MediaPlayer. На форме будет писаться сколько осталось время. Создание интерфейса   Окно для ввода сообщения и для настройки времени будут находиться внутри компонента GroupBox. Этот компонент нужно перетащить на форму с закладки Standard. Для того чтобы можно было написать сообщение, будем использовать компонент Edit который находиться на той

же странице, его нужно перетащить на компонент GroupBox1. Свойство формы AutoSize выставить True. Теперь перенесём ещё один компонент GroupBox и в него вставим два компонента ComboBox, которые нужны для выбора времени. Перенесём на GroupBox2 компонент CheckBox, который будет показывать воспроизвести аудио-файл или ненужно. Перенесём на форму 4 кнопки BitBtn. Нужен компонент OpenDialog через который будет - 17 - выбор аудио-файла, его можно найти на закладке Dialogs.

Нужно 3 компонента Timer. 2 Timer’а будут использоваться в зависимости нужно ли проигрывать аудио-файл или нет, а 3 для показа сколько время осталось. Для всех 3х таймеров в их свойствах Enabled нужно выставить False. Перенесём на форму MediaPlayer с закладки System в какой то компонент GroupBox,что даст возможность не мешать размерам формы так как MediaPlayer не будет виден. Когда всё сделать, то расположите все компоненты как показано на рис.2.4 Рис.2.4 Процесс