Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.04.2018, 13:21   #1
kuzduk
Пользователь
 
Регистрация: 02.01.2010
Сообщений: 54
Стрелка kuLabelLink - компонент для работы с ссылками

kuLabelLink

Компонент Delphi который нужно устанавливать в палитру компонентов. Компонент для работы с ссылками. Открываем папки, файлы, ссылки в интернет(например сайт автора), написать письмо... Переходим по любой ссылке указанной в свойстве Link.

Font - шрифт в обычном состоянии

FontHover - шрифт при наведённом курсоре

Link - ссылка по которой осуществляется переход при клике, должна иметь вид любого зарегистрированного в системе протокола, например:
D:\
file://
http://
https://
mailto:
news:
telnet:

Link может быть относительным адресом(например %exe), подробнее об относительных путях читайте в описании функции Path_RelativToFull


Автоматический/ручной переход по ссылке:
Если кликнуть по kuLabelLink1 то осуществится автоматический переход по ссылке Link (описано в TkuLabelLink.Click)
Если описать событие OnClick для конкретного компонента на форме, то автоматического перехода по Link не осуществится: можно вручную описать событие OnClick


Если кликнуть средней кнопкой мыши(колесом) то Link скопируется в буфер обмена

официальный сайт с сылкой на скачивание: kuzduk.zz.mu/_kulabellink.html

мой сайт: kuzduk.ru

Последний раз редактировалось kuzduk; 12.04.2018 в 19:27.
kuzduk вне форума Ответить с цитированием
Старый 12.04.2018, 13:56   #2
kropotkina-alice
Форумчанин
 
Аватар для kropotkina-alice
 
Регистрация: 27.10.2014
Сообщений: 594
По умолчанию

Может я чего не понимаю, но зачем нужен этот компонент?
Ведь все так просто:
Код:
ShellExecute(Handle,'open',PChar(тут указатель на любой адрес в любом текстовом поле.AsString),nil,nil,SW_ShowNormal);
kropotkina-alice вне форума Ответить с цитированием
Старый 12.04.2018, 14:07   #3
kuzduk
Пользователь
 
Регистрация: 02.01.2010
Сообщений: 54
По умолчанию

Цитата:
Сообщение от kropotkina-alice Посмотреть сообщение
Может я чего не понимаю, но зачем нужен этот компонент?
Ведь все так просто:
Код:
ShellExecute(Handle,'open',PChar(тут указатель на любой адрес в любом текстовом поле.AsString),nil,nil,SW_ShowNormal);
а также OnMouseEnter и OnMouseLeave прописывать изменения шрифта.

а также создать функцию которая будет обрабатывать относительные ссылки.

и всё это вручную для каждой такой ссылки.

можно и так.

а можно компонентом без лишней писанины просто заполнив свойство Link
мой сайт: kuzduk.ru
kuzduk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ищу компонент для работы с last.fm Delphi_ProGer Компоненты Delphi 2 16.01.2014 04:00
Компонент для работы с BitTorrent Lavrentiev Компоненты Delphi 3 03.05.2013 17:17
Компонент для работы с MySQL Leximus Общие вопросы Delphi 3 04.11.2012 20:55
Компонент для работы со схемами toxich Компоненты Delphi 4 08.07.2012 11:28