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

создания интерфейса Изменим надписи на компонентах. В свойстве Caption формы введём текст: ‘Напомнить о…’, а в свойстве формы Name введём имя формы: ‘Memory’. Так как в GroupBox1 находиться компонент Edit1 и используется для создании сообщения, то в свойстве Caption компонента GroupBox1 можно ввести: ‘Напомнить о:’. В свойстве Text, компонента Edit1, нужно стереть текст. Так как в GroupBox2 находятся два компонента ComboBox которые используется для установки

времени, а компонент CheckBox1 для воспроизведения файла, то в свойстве Caption компонента GroupBox2 можно ввести: ‘Настройки’. В свойстве Caption компонента CheckBox1 можно ввести: ‘Воспроизвести аудио-файл’. Так как Label1 будет показывать счётчик, то в его свойство Caption можно ввести начальное значение счётчика: ‘Осталось: 0 час. 0 мин. 0 сек.’. Кнопку BitBtn1 подпишем: ‘Аудио-файл’, так как при нажатие на кнопку будем выбирать аудио-файл. Кнопку BitBtn2

подпишем: ‘Остан.таймер’, так как при нажатие на кнопку будет выключаться таймер. Кнопку BitBtn4 подпишем: ‘Ok’, так как при нажатие на кнопку программа начнёт свою работу. Кнопку BitBtn4 подпишем: ‘Закрыть’, так как при нажатие на кнопку будет закрываться программа, но таймер не перестанет работать. В свойстве Items компонента ComboBox1 нужно вставить названия часов, например, введём, в столбик, без запятых, в столбик: ‘0 часов,1 час,2 часа,3

часа,4 часа,5 часов’. А в ComboBox2 можно вставить, без запятых, в столбик: ‘0 мин.,1 мин.,2 мин.,3 мин.,4 мин.,5 мин.,10 мин.,15 мин.,20 мин.,25 мин.,30 мин.,35 мин.,40 мин.,45 мин.,50 мин.,55 мин.’. - 18 - Для каждой кнопки можно выставить пиктограмму, для этого есть свойство кнопок Glyph. Описание процедур и функций 1. Нам нужно глобально объявить несколько переменных, то есть чтобы можно было использовать эти переменные в любой процедуре или функции. Для этого Окне

редактора Кода находим оператор VAR и после него пишем: Hour,Sec,min,a,b:longint; Переменная Hour и Min будут использоваться для отображение счётчика, а переменны A и B для вычисления общего времени (нужно для Timer). 2.Компонент Timer1 будет использоваться, если аудио файл не выбран. Когда пройдёт заданное время, то выводиться сообщение без звукового сигнала. В свойство OnTimer нужно вставить следующий код: timer4.Enabled:=false; // выключить таймер 3 timer1.Enabled:=false;//

выключить таймер 1 BitBtn4.Click;//нажать кнопку ShowMessage('Напоменание о:"'+ edit1.Text +'"');// вывести сообщение BitBtn3.Enabled:=true;//можно нажимать на кнопку BitBtn2.Enabled:=false;//нельзя нажимать на кнопку 3.Компонент Timer2 будет использоваться, если аудио файл должен воспроизвестись. Когда пройдёт заданное время, то выводиться сообщение с звуковым сигналом. В свойство OnTimer нужно вставить следующий код: mediaplayer1.Open;// Открыть аудио-файл