Показ всплывающих подсказок в строке состояния I
Шаг 1:
Расположите TStatusBar на всех формах, где вы хотите увидеть подсказки в строке состояния. Установите свойство SimplePanel в True и присвойте компоненту другое имя (я использую SBStatus). Смотри мой комментарий относительно имени, который я поместил в шаге 4.
Шаг 2:
Создайте необходимые подсказки в свойствах Hint. Не забудьте вставить '|', если вам необходим длинный текст.
Шаг 3:
Поместите следующую строку в обработчике события FormCreate вашей формы:
Application.OnHint := DisplayHint; |
Шаг 4:
Создайте эту процедуру. Пожалуйста обратите внимание на комментарии.
procedure TFrmMain.DisplayHint(Sender: TObject); var Counter, NumComps: integer;
beginwith 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 у необходимых компонентов. Я надеюсь это просто. [000306]