Как отобразить hint в TLabel?

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

Как отобразить hint в TLabel?

На форме лежат TEdit, TCheckBox и TLabel. Я бы хотел, чтобы при наведении на TEdit или TCheckBox в TLabel отображалась "подсказка". Т.е. своего рода hint, но только отображаемый в TLabel. Как такое можно сотворить?

Такое поведение Hint в VCL предусмотренно:

Code:

procedure TForm1.DisplayHint(Sender:  TObject);

begin

        Label1.caption :=  GetLongHint(Application.Hint);

        end;

         

        procedure TForm1.FormCreate(Sender:  TObject);

        begin

        Application.OnHint := DisplayHint;

        end;

Теперь все хинты будут показываться на метке.

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

Взято с Vingrad.ru http://forum.vingrad.ru

Для отображения hint в TLabel на форме можно использовать событие OnHint приложения и изменить текст метки в процедуре DisplayHint.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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

:: Главная :: TLabel ::

Время компиляции файла: 2024-08-19 13:29:56
2024-11-21 11:58:22/0.0031189918518066/0