## 3.9 Строка состояния.

### 3.9.1 Компонент Строка состояния (TStatusBar) c панели Win32.

Редкая программа обходится без строки состояния, в которой указывается «горячая» подсказка и выводится дополнительная информация. Строка состояния обычно делится на несколько панелей.

### 3.9.2 Создание строки состояния в программе.

Сначала мы разместим на форме этот компонент, и два раза щёлкнем на ней. Потом мы создадим 4 панели нажатием на кнопку . Потом мы закроем это окно, и разместим на форме два компонента TTimer с панели System , затем мы щёлкнем на одном из таймеров два раза, и в редакторе кода мы щёлкнем перед словом begin, и введём туда следующую строку:

var DateTime:TDAteTime;

// Объявление переменной для работы со временем и датой класса

//TDateTime

А затем мы щёлкнем после слова begin, и введём следующий код:

DAteTime:=time;

// установка в качестве значения переменной системного времени

//Windows

Form2.StatusBar1.Panels [1].Text:=TimeToSTr (DateTime);

// вывод системного времени во второй панели строки состояния

Давайте теперь щёлкнем на другом «таймере» два раза, и объявим ту же самую переменную: «DateTime», и того же типа – «TDateTime», и в редактор кода надо ввести следующий код:

// установка в качестве значения переменной системной даты

DAteTime:=DAte;

// вывод в строке состояния системной даты

Form2.StatusBar1.Panels [2].Text:=DAteToSTr (DateTime);

После этого можно запустить программу.

<<Назад | Далее>>