Как отобразить 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? раздела Компоненты и Классы TLabel может быть полезна для разработчиков на Delphi и FreePascal.

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

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

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

24.04.2024 04:20:07/0.00071811676025391/0