Организация оперативной подсказки
Пользователям очень нравится, когда при перемещении курсора над элементом управления над ним появляется строка с поясняющим текстом о назначении этого элемента. Такая доброжелательность приложения повышает его наглядность и способствует его быстрому освоению. Кроме того, благодаря оперативной подсказке пользователь освобождается от необходимости лишний раз обращаться к файлу помощи. Ряд свойств предназначен для настройки поведения контекстной помощи (всплывающей подсказки).
Таблица 9.7.Организация контекстной подсказки
Свойство | Описание |
property Hint:string; | В этом свойстве окажется показываемый в данный момент текст подсказки. |
property HintColor: TColor; | Цвет фона всплывающей подсказки. |
property HintPause: Integer; | Интервал времени в миллисекундах, проходящий с момента появления курсора мыши над компонентом до появления всплывающей подсказки. По умолчанию - 500 миллисекунд. |
property HintHidePause: Integer; | Время демонстрации подсказки. По умолчанию - 2500 миллисекунд. |
property HintShortPause: Integer; | Время смены всплывающих подсказок при быстром перемещении курсора над компонентами. По умолчанию - 50 миллисекунд. |
property HintShortCuts: Boolean; | Указывает, включать ли в подсказку информацию о сочетаниях быстрых клавиш. |
В момент вывода всплывающей подсказки у TApplication вызывается обработчик события:
propertyOnHint: TNotifyEvent;
Считаю нужным напомнить о возможности отображения подсказки не только в качестве всплывающего над компонентом текста, но и в строке состояния проекта. Дело в том, что свойство любого элемента управления Hint может содержать два варианта подсказки, разделенных символом «|» (вертикальная черта). Вот пример текста подсказки кнопки закрытия проекта:
btnClose.Hint := 'Выход|Завершение работы программы';
Способ организации вывода оперативной подсказки в строке состояния
представлен в следующем примере:
typeTForm1 = class(TForm)
Private
Public
procedureLongTextHint(Sender: TObject);
end;
varForm1: TForm1;
Implementation
{$R *.DFM}
procedureTForm1.LongTextHint(Sender: TObject);
Begin
StatusBar1.SimpleText := GetLongHint(Application.Hint);
end;
procedureTForm1.FormCreate(Sender: TObject);
Begin
Application.OnHint := LongTextHint;
end;
Теперь вторая часть подсказки отображается в строке состояния проекта –
компоненте StatusBar1.В заключение упомянем процедуру, немедленно отменяющую вывод подсказки на экран:
procedureCancelHint;
Дата добавления: 2016-03-15; просмотров: 502;