Содержание материала

 

 

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

 

Шаг 1:

 

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

 

Шаг 2:

 

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

 

Шаг 3:

 

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

Application.OnHint := DisplayHint;

 

Шаг 4:

 

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

 

Code:

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 у необходимых компонентов. Я надеюсь это просто.


 

Автор: Иваненко Фёдор Григорьевич

 

Пришло мне письмо:

 

...cовет за номером 000306 содержит интересную идею -- выводить Hint'ы не на основную форму, а на активную, я сам до этого не дошел... Но не совсем понятно, чем автору не понравился стандартный метод TForm.FindComponent, существующий со времен Delphi I ? С его использованием метод ShowHint выглядит попроще, да и работает не хуже:

 

Code:

procedure TAnyForm.ShowHint;

var

C: TStatusBar;

begin

// ищем наш StatusBar1 на активной форме

C := TStatusBar(Screen.ActiveForm.FindComponent('StatusBar1'));

// если не найден -- ищем на основной форме

if not Assigned(C) then

   C := TStatusBar(Application.MainForm.FindComponent('StatusBar1'));

// если что-то обнаружено -- рисуем на н?м наш текст

if Assigned(C) then

   C.SimpleText := '  ' + Application.Hint;

end;

 

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

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить