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

Система 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;

Задание № 3

Сконструировать строку состояния, в которую вывести подсказки для всех команд всплывающего меню формы, построенной в предыдущих заданиях.

14. ПРИЛОЖЕНИЕ С НЕСКОЛЬКИМИ ФОРМАМИ И МНОГОСТРАНИЧНЫЕ ФОРМЫ

Обычно приложения имеют основное окно, несколько плавающих инструментальных панелей (или палитр) и диалоговых панелей, которые могут вызываться с помощью команд меню или командных кнопок.

Диалоговые панели в Delphi основаны на формах. С диалоговой панелью пользователь обычно связывает понятие модального окна. Модальное окно – это такое окно, которое получает фокус и должно быть закрыто прежде, чем пользователь может перейти обратно к основному окну. Это верно для панелей сообщения и диалоговых панелей. В системе Delphi можно также иметь немодальные диалоговые панели и модальные формы. Мы должны учитывать два момента:

1. рамки формы и пользовательский интерфейс определяют, выглядит ли эта форма как диалоговая панель;

2. использование двух функций – Show и ShowModal для вывода на экран второй формы определяет поведение последней (немодальная или модальная).

Если вы используете функцию Show, вторая форма будет выведена на экран как немодальная. Код просто выводит форму на экран, а не создает ее. Форма создается файлом проекта. Первая созданная форма становится основной формой приложения. Когда модальная форма создается и выполняется с помощью функции ShowModal, она остается активной до тех пор пока вы не закроете ее. Функция ShowModal не возвращает значение до тех пор, пока форма не закрыта. В это время основная форма остается недоступной. Как только модальная форма будет закрыта, функция ShowModal завершает работу, а код удаляет объект из памяти.