Простые часы на 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 вы увидите текущее время с отсчетом секунд.

То есть обычные электронные часы.

Видео по теме урока