Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Компоненты и Классы , TStatusBar

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

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

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

...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;

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

Статья Показ всплывающих подсказок в строке состояния 2 раздела Компоненты и Классы TStatusBar может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TStatusBar ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
18.02.2020 19:37:53/0.014770984649658/0