Delphi.TRichView. Добавляем гиперссылки

В этом посте мы узнаем как в TRichView заставить гиперссылки работать, а также как программно добавить гиперссылку.

Как заставить TrichView понимать гиперссылки?

В своем тестовом примере я уже добавил действие rvActionsResource.rvActionInsertHyperlink1, но этого оказалось недостаточно. Ссылки добавляются, но переход по ним не осуществляется. Для того, чтобы осуществлялся переход, желательно обработать 2 события.

Для перехода достаточно обработать одно событие onJump, второе же для настройки отображения гиперссылки при наведении мыши. Итак, посмотрим что у нас получилось. Рабочий вариант у меня получился таким…

OnCreate

OnJump

OnRVMouseMove


Как программно добавить гиперссылку?

Тут надо отметить, что сам вид гиперссылок настраивается в компоненте RVStyle в TextStyles. Там можно настроить цвета, подчеркивание, шрифты и так далее…

2

 

Добавить комментарий