Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 12 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Показ всплывающих подсказок в строке состояния

Я покажу как сделать так, чтобы строка состояния (Status Bar) показывала все всплывающие подсказки (Hint) элементов управления формы при нахождении курсора мыши в области компонента. Имеется пара решений данной задачи, но в любом случае вы должны создать код для каждой формы (пока я не знаю другого решения).

Шаг 1:

Расположите TStatusBar на всех формах, где вы хотите увидеть подсказки в строке состояния. Установите свойство SimplePanel в True и присвойте компоненту другое имя (я использую SBStatus). Смотри мой комментарий относительно имени, который я поместил в шаге 4.

Шаг 2:

Создайте необходимые подсказки в свойствах Hint. Не забудьте вставить '|', если вам необходим длинный текст.

Шаг 3:

Поместите следующую строку в обработчике события FormCreate вашей формы:


 Application.OnHint := DisplayHint;
 

Шаг 4:

Создайте эту процедуру. Пожалуйста обратите внимание на комментарии.


 procedure TFrmMain.DisplayHint(Sender: TObject);
 var
   Counter, NumComps: integer;
 begin
   with Screen.ActiveForm do
   begin
     NumComps := ControlCount - 1;
     for Counter := 0 to NumComps do
       {SBStatus - имя всех моих компонентов TStatusBar.
       При необходимости его можно изменить.}
       if (TControl(Controls[Counter]).Name = 'SBStatus') then
       begin
         if (Application.Hint = '') then
           {ConWorkingName - используемая константа.
           При необходимости ее можно изменить.}
           TStatusBar(Controls[Counter]).SimpleText := ConWorkingName
         else
           TStatusBar(Controls[Counter]).SimpleText := Application.Hint;
         break;
       end;
   end;
 end; {DisplayHint}
 

Не забудьте поместить 'Procedure DisplayHint(Sender: TObject) в секции Public.

Это все, что вы должны сделать. Если вы хотите придать такую функциональность другим формам, просто поместите на них TStatusBar и установите свойство Hint у необходимых компонентов. Я надеюсь это просто.




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS