Построение строки состояния

Система Delphi содержит специальный компонент StatusBar, основанный на специальном управляющем элементе системы Windows. Этот компонент может быть использован почти как панель, когда значением его свойства SimplePanel является True. В этом случае вы можете использовать свойство SimpleText, чтобы вывести некоторый текст. Этот компонент позволяет вам определить несколько подпанелей с помощью редактора свойства Panels. Каждая подпанель имеет свои собственные графические атрибуты, настраиваемые с помощью редактора. Другой характеристикой компонента строки состояния является специальная область, которая добавляется в нижний правый угол линейки и предназначена для изменения размера самой формы.

Строка состояния используется для многих целей. Наиболее часто ее применяют для вывода на экран информации об элементе меню, который в настоящее время выбран пользователем. При этом нужно сделать два шага. Сначала ввести строку как свойство Hint каждого элемента меню. Затем записать некоторый код для обработки события OnHint приложения. Вам нужно добавить вручную новый метод в форму и затем присвоить его свойству OnHint объекта Application при запуске:

procedure TForm1.Form1Create(Sender:TObject);

Begin

Application.OnHint:= ShowHint;

End;

В интерфейсной части кода формы вы можете добавить следующее определение:

procedure TForm1.ShowHint(Sender: Object);

Эта процедура копирует текущее значение свойства Hint приложения, которое временно содержит копию всплывающей подсказки выбранного элемента, в строку состояния:

procedure TForm1.ShowHint(Sender:TObject);

Begin

StatusBar1.Panels[0].Text:=Application.Hint;

End;