Советы по Delphi
         

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


Я покажу как сделать так, чтобы строка состояния (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 dobeginNumComps := ControlCount - 1;for Counter := 0 to NumComps do{SBStatus - имя всех моих компонентов TStatusBar. При необходимости его можно изменить.}
if (TControl(Controls[Counter]).Name = 'SBStatus') thenbeginif (Application.Hint = '') then{ConWorkingName - используемая константа. При необходимости ее можно изменить.}
TStatusBar(Controls[Counter]).SimpleText := ConWorkingNameelseTStatusBar(Controls[Counter]).SimpleText := Application.Hint;break;end;end;end; {DisplayHint}

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

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


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

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

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;

Желаю Вам всяческих успехов!

С уважением, Иваненко Фёдор Григорьевич.

e-mail: [000498]



Содержание раздела