Часы в StatusBar в Delphi
Для создания часов в StatusBar вашей формы, делаем следующее:
1) Помещаем на форму один Timer и один StatusBar;
2) Кликаем дважды на StatusBar и в появившемся окне Editing StatusBar1.Panels дважды нажимаем Add New и закрываем редактор;
3) В событии OnTimer таймера, пишем следующий код:
|
1 2 3 4 5 6 |
var a: TTime; begin a:= (Time); StatusBar1.Panels[0].Text:= TimeToStr(a); end; |
4) Запускаем проект;
Переменную а, можно подгружать куда угодно, в Label например, можно менять цвета шрифта и фона.