Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Методичка лаб по ООП с ИИТ.doc
Скачиваний:
17
Добавлен:
23.08.2019
Размер:
919.04 Кб
Скачать

Лабораторная работа 9. Поддержка справочной системы. Создание всплывающих подсказок.

Всплывающие подсказки удобны, прежде всего, тем, что назначение элемента, на который подведен указатель мыши, видно до непосредственной его активации. Например, кнопка "Применить" можно снабдить подсказкой "Сохранить все настройки без закрытия окна". Как же настроить цвет фона, паузу перед появлением подсказки, время отображения подсказки? Во время инициализации и запуска приложения на выполнение, происходит считывание системных переменных в переменные программы, в т.ч. и параметров всплывающей подсказки. Эти переменные и свойства можно менять во время работы приложения, некоторые еще при проектировании, добываясь тем самым отличия от стандартных windows-приложений. Для того, чтобы у интересующего вас параметра появлялась всплывающая подсказка, необходимо, прежде всего установить сам текст подсказки. Это свойство Hint. Для каждого компонента программы Hint может быть разный. Второй шаг, это указать, что подсказку для интересующего нас компонента надо показывать. Это свойство ShowHint. Его нужно установить в true для отображения, и false наоборот. Два вышеперечисленных свойства доступны еще до запуска программы, во время редактирования проекта. По умолчанию свойство ShowHint имеет значение false, т.е. подсказка не высвечивается.

Задание 1. Создание подсказки через свойства компонента.

Используя кнопки BitBtn (панельAdditional) создайте управляющую панель видеомагнитофона. Картинка для кнопки задается свойством Glyph. Большой набор готовых картинок можно найти в каталоге BorlandShared\Image\Buttons.

Измените свойства Hint и ShowHint для каждого элемента соответственно его функциям.

Целесообразнее устанавливать эти свойства в инспекторе объектов, чем программно, этим самым вы не засоряете текст кода программы. В редакторе кода порой бывает так много строк, что трудно сразу разобраться в возможной ошибке и подобные строки могут сбивать с толку. Исключением в нашем случае может быть постоянно меняющаяся всплывающая подсказка. Например, при изменении функционального назначения кнопки, меняется и текст подсказки. Задание 2. Программная установка текста всплывающей подсказки для кнопки Button1. Поместить на форму кнопку и в событийной процедуре

procedure TForm1.Button1Click(Sender: TObject);

вписать следующий код. Button1.Hint:='Нажми на меня, и ты узнаешь, что ты наделал'; Программная активация подсказки для кнопки Button1 (только дает возможность всплывающей подсказке высвечиваться, а не выводит ее на экран!) Button1.ShowHint:=true; Задание 3. Изменение цвета фона подсказки. Цвет фона всплывающей подсказки для всего приложения меняется очень легко. Application.HintColor:=ЦВЕТ; Цвет задается через зарезервированные константы или цифровым кодом. Например, белый цвет может быть задан с помощью константы clWhite, с помощью шестнадцатеричного представления $00FFFFFF, или обычным, привычным нам десятичным числом 16777215. Ниже представлена таблица цветов, которые определены как стандартные константы цветов.

Стандартный цвет всплывающей подсказки, установленный в свойствах экрана windows, хранится в константе clInfoBk. Она является элементом со статусом "только для чтения" и изменение недопустимо. Задание 4. Установите самостоятельно цвет вашей подсказки.

Задание 5. Установка параметров всплывающей подсказки. Application.HintPause:=ЗНАЧЕНИЕ; Значение задается в миллисекундах. Изменение этого свойства может вам показаться бессмысленным. Но иногда необходимо, чтобы пользователь видел всплывающую подсказку немедленно после наведения на компонент мышкой. Иногда нужно вообще убрать на продолжительный срок появление подсказки, чтобы она лишний раз не привлекала к себе внимание. Обычное начальное значение в windows 500 мс (полсекунды). Время отображения подсказки на экране равно 2500 мс (2,5 с). Программно для вашего приложения это время задается следующим образом. Application.HintHidePause:=ЗНАЧЕНИЕ;

Для изменения цвета можно использовать список цветов. Для этого поместите на форму компонент colorbox (вкладка Additional).

Application.HintColor:=ColorBox1.Selected; Задание 6. Установите указанные выше параметры. Числовые значения должны вводится в текстовом виде в компонентах Edit1 и Edit2. Цвет должен выбираться из списка. Некорректное введение числового значения должно контролироваться. Некорректный ввод чисел лучше всего тестировать с помощью процедуры Val.