...cовет за номером 000306 содержит интересную идею -- выводить Hint"ы не на
основную форму, а на активную, я сам до этого не дошел... Но не совсем понятно,
чем автору не понравился стандартный метод TForm.FindComponent, существующий со
времен Delphi I ? С его использованием метод ShowHint выглядит попроще, да и
работает не хуже:
procedure TAnyForm.ShowHint;
var
C: TStatusBar;
begin// ищем наш StatusBar1 на активной форме
C := TStatusBar(Screen.ActiveForm.FindComponent("StatusBar1"));
// если не найден -- ищем на основной формеifnot Assigned(C) then
C := TStatusBar(Application.MainForm.FindComponent("StatusBar1"));
// если что-то обнаружено -- рисуем на н?м наш текстif Assigned(C) then
C.SimpleText := " " + Application.Hint;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Показ всплывающих подсказок в строке состояния 2", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!