Автор: Иваненко Фёдор Григорьевич
Пришло мне письмо:
...cовет за номером 000306 содержит интересную идею -- выводить Hint'ы не на основную форму, а на активную, я сам до этого не дошел... Но не совсем понятно, чем автору не понравился стандартный метод TForm.FindComponent, существующий со времен Delphi I ? С его использованием метод ShowHint выглядит попроще, да и работает не хуже:
|
Code: |
|
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; |
- << Назад
- Вперёд
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!