Часы в StatusBar в Delphi


Часы в StatusBar в Delphi

Для создания часов в StatusBar вашей формы, делаем следующее:

1) Помещаем на форму один Timer и один StatusBar;

2) Кликаем дважды на StatusBar и в появившемся окне Editing StatusBar1.Panels дважды нажимаем Add New и закрываем редактор;

3) В событии OnTimer таймера, пишем следующий код:

4) Запускаем проект;

Переменную а, можно подгружать куда угодно, в Label например, можно менять цвета шрифта и фона.