|
Автор: Иваненко Фёдор Григорьевич
Пришло мне письмо:
...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