Урок 4. Использование в Delphi подсказок

В операционной системе Windows при наведении указателя мыши на каком либо значке всплывает подсказка. Например для значка "Мой компьютер" подсказка будет такой - "Отображает диски и другие устройства, подключенные к этому компьютеру".  Согласимся, что данная подсказка будет не лишней. Если учесть, что документацию к приложениям обычно у нас в стране редко кто внимательно читает, то конечному пользователю будет легче разобраться с функционалом приложения.Давайте разместим на форме компонент Edit и в свойстве Hint напишем "Это наш компонент, мы сюда можем все написать". Далее свойство ShowHint устанавливает в TRUE. Запустим проект клавишей F9. Задержим на мгновение мышь над компонентом Edit и увидим нашу подсказку на фоне желтого цвета, как на рисунке.

Подсказка на компоненте Edit

А как сделать фон подсказок другой,Пример с подсказками Delphi
спросите Вы, все очень просто. Для этого разберем следующий пример.

Расположим Компоненты следующим образом, как на рисунке. Свойству формы ShowHint присвоим TRUR. Проследим, чтобы у всех компонентов свойство ParentShowHint было бы TRUE.

Теперь для каждого компонента напишем подсказку типа "Это компонент Edit" (для каждого компонента подсказка должна быть своей). Двойным щелчком на форме зайдем в обработчик формы Create и внесем туда следующие строки :

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Hint := 'Первая строка' + #13 + 'Вторая строка'
                    + #13 + 'Третья строка';
  Application.HintColor := clGrayText;   
  Application.HintPause := 250;      
  Application.HintHidePause := 5000; 

end;

Первая строка задает кнопке Button1 новую подсказку, если до этого была задана подсказка в Инспекторе Объектов, то она игнорируется. Символ #13 разбивает строку подсказки на несколько "этажей". Свойство HintColor задает фон подсказок. Свойство HintPause - время до показа подсказки в миллисекундах (где 1000 - одна секунда), а свойство HintHidePause время показа подсказки.

Итог: мы научились делать подсказки для приложений в Delphi, задавать их цвет и время показа.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *