Как сделать ссылку в label (delphi)

Приветствую всех на своем блоге programmict.ru. В этой статье я покажу как сделать ссылку на сайт из стандартного компонента label (метка) в среде программирования delphi. Итак приступим…

1. Добавим компонент label на форуму (палитра компонентов->вкладка Standart->Label1). В свойстве caption указываем текст ссылки.

2. Два раза кликаем по компоненту Label1 ЛКМ (левой клавишей мыши) .
3. Добавляем  следующий код между begin и end:

где link – ссылка на Ваш сайт.
4. В раздел описания модулей (Uses) допишем в конец модуль ShellApi.

Все теперь ссылка сделана, но нет никаких признаков, что это ссылка, просто текст, который при клике введет на сайт. Для красивого оформления надписи задаем параметры текста во вкладке (Font) в нем задаем  тип шрифта , начертания и размер.


Для того чтобы наш курсор изменялся при наведении на ссылку, нужно изменить свойство Cursor и выбираем нужный курсор, я предпочитаю rHandPoint.

Ну а чтобы при наведении на ссылку текст она подчеркивалась, как это обычно бывает нужно в параметрах label на вкладке events создаем обработку событий MouseMove и MouseLeave. далее в событие MouseMove нужно вставить строку

а в MouseLeave:

Вот и все наша ссылка готово и оформлена, если будут вопросы пишите в комментариях, постараюсь помочь)

Категория: Delphi
Понравилась статья? Поделись в социальных сетях:

  • Aleksey Sh.

    Все через это проходят. Я когда то писал свой компонент даже для этого TURLLabel. Как положено со свойством URL и всякими красивостями. :)

  • Анастасия Красильникова

    а этот метод подойдёт для DBText?