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

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

...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: theodor_iv@mail.ru [000498]