/p>
Caption - Ok.
Події: Click - активізація роботи будильника (початок порівняння значення введеного моментів часу з поточним).
- компонент TTimer1
Події:
Timer1Tick - порівняння значення введеного моментів часу з поточним моментом часу.
Оброблювач FormCreate передбачає ініціалізацію деяких властивостей програми: текстового значення Label3 і Label4, заголовок додатка (Application.Title), звукового файлу (процедура SetSound).
procedure TForm1.FormCreate (Sender: TObject);. Caption: = '00 ';. Caption: = '00';. Title: = 'Будильник';;;
продедур SetSound - завантаження звукового файлу для подальшого відтворення. Створюємо компонент TMediaPlayer, отримуємо шлях до файлу ' media chord.wav' в директорії Windows, намагаємося відкрити компонент TMediaPlayer для відтворення. p align="justify"> pWinDir - шлях в директорію Windows.
MediaPlayer - компонент для відтворення звуку.
procedure TForm1.SetSound;: PChar;: = TMediaPlayer.Create (Form1);. ParentWindow: = Form1.Handle;. Visible: = False; (pWinDir, 80); (pWinDir, 80) ;. FileName: = pWinDir + ' media chord.wav';. Open; EMCIDeviceError do;
end;;
Оброблювач UpDown1Click - установка значення годин в моменті часу спрацьовування сигналу будильника.
procedure TForm1.UpDown1Click (Sender: TObject; Button: TUDBtnType); UpDown1.Position> 23UpDown1.Position: = 0; UpDown1.Position <10Label3.Caption: = '0 '+ IntToStr ( UpDown1.Position) Label3.Caption: = IntToStr (UpDown1.Position);
end;
Оброблювач UpDown1Click - установка значення годин в моменті часу спрацьовування сигналу будильника.
procedure TForm1.UpDown2Click (Sender: TObject; Button: TUDBtnType); UpDown2.Position> 59UpDown2.Position: = 0; UpDown2.Position <10Label4.Caption: = '0 '+ IntToStr ( UpDown2.Position) Label4.Caption: = IntToStr (UpDown2.Position);
end.
В
Малюнок 4. Установка значення годин в часі будильника
В
Малюнок 5. Установка значення хвилин у часі будильника
Оброблювач Button1Click.
Запам'ятовуємо встановлений час (AlarmHour - годинник, AlarmMin - хвилини). Звертаємо програму в трей з підказкою часу спрацьовування сигналу будильника. Включаємо перевірку таймера установкою змінної AlarmSet в значення true. p align="justify"> procedure TForm1.Button1Click (Sender: TObject);
begin: = StrToInt (Label3.Caption);: = StrToInt (Label4.Caption);: = true; (1, 'Будильник' +. Caption + ':' + Label4.Caption);. Hide;;