Простий годинник на Delphi

Найпростіший спосіб створити годинник в Delphi – це використовувати компоненти Timer і Label.

Як завжди давайте покроково розберемося як це робиться.

Підготовка проєкту

1. Створіть нову програму для Windows (File → New → Windows VCL Application – Delphi).
2. Помістіть на форму компоненти Timer, Label і Button.
3. Змініть властивості компонента Label: Caption – на “00:00:00”, Font → Розмір – на 26. Ну і можете перемістити Label в те місце форми де потрібно відображати годинник, а також можете змінити ширину та висоту самої форми.
4. Властивість Enabled компонента Timer встановіть False.
5. Замініть напис (Caption) на кнопці словом Start.
6. Збережіть проєкт.

Написання коду

Тепер оберіть в інспекторі об’єктів компонент Timer1, перейдіть на вкладку Events, створіть подію OnTimer і напишіть наступний код:

Label1.Caption := FormatDateTime('hh:mm:ss', Now);

Цим рядком коду, за допомогою функції Now, ми отримуємо поточну дату та час. А за рахунок функції FormatDateTime виконуємо розширене форматування Now в рядок, вказавши що нам потрібно відобразити тільки години, хвилини, секунди. Результат виводимо в написі компоненту Label1.

Після цього, в інспекторі об’єктів оберіть компонент Button1, перейдіть на вкладку Events, створіть подію OnClick і напишіть наступний код:

Timer1.Interval := 1000;
Timer1.Enabled := True;

Першим рядком цього коду, ми встановлюємо інтервал сигналів таймера рівним 1 секунді. А другим рядком коду, ми запускаємо таймер.

Таким чином, якщо ми тепер збережемо проєкт і запустимо нашу програму, то після натискання кнопки Start ви побачите поточний час з відліком секунд.

Тобто звичайний електронний годинник.