Исправление ошибок событий мыши в RichViewEdit для чат-приложения на Delphi

Delphi , Файловая система , Ярлыки

В процессе разработки чат-приложения на Delphi с использованием компонента RichViewEdit для отображения текста, пользователь столкнулся с проблемой: гиперссылки, отправленные пользователями, не были кликабельными, несмотря на то, что отображались цветным шрифтом. Это означало, что при наведении курсора мыши на ссылку и клике по ней, браузер не открывался для просмотра указанного URL.

Проблема заключалась в некорректной работе событий OnMouseMove и OnJump в компоненте RichViewEdit. В коде обработчика события OnJump присутствовал метод GetJumpPointLocation, который должен был определять позицию клика, но по какой-то причине не работал должным образом.

Подход к решению

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

Подтвержденное решение

В качестве подтвержденного решения был предложен материал из статьи "Adding URL hyperlink functionality to RichEdit", доступной по ссылке. В статье описывается, как добавить функциональность гиперссылок в TRichEdit, чтобы при клике по ссылке открывался соответствующий веб-браузер или клиент электронной почты, если ссылка начинается с mailto:.

В приведенном коде используется процедура InitRichEditURLDetection, которая настраивает компонент TRichEdit для автоматического обнаружения URL-адресов и обработки кликов по ним. В обработчике WndProc реализована логика обработки сообщений о клике по гиперссылке, при которой открывается соответствующий URL в браузере.

procedure TForm1.InitRichEditURLDetection(RE: TRichEdit);
var
  mask: Word;
begin
  mask := SendMessage(RE.Handle, EM_GETEVENTMASK, 0, 0);
  SendMessage(RE.Handle, EM_SETEVENTMASK, 0, mask or ENM_LINK);
  SendMessage(RE.Handle, EM_AUTOURLDETECT, Integer(True), 0);
end;

procedure TForm1.WndProc(var Msg: TMessage);
var
  p: TENLink;
  sURL: string;
  CE : TRichEdit;
begin
 if (Msg.Msg = WM_NOTIFY) then
 begin
  if (PNMHDR(Msg.lParam).code = EN_LINK) then
  begin
   p := TENLink(Pointer(TWMNotify(Msg).NMHdr)^);
   if (p.Msg = WM_LBUTTONDOWN) then
   begin
    try
     CE := TRichEdit(Form1.ActiveControl);
     SendMessage(CE.Handle, EM_EXSETSEL, 0, Longint(@(p.chrg)));
     sURL := CE.SelText;
     ShellExecute(Handle, 'open', PChar(sURL), 0, 0, SW_SHOWNORMAL);
    except
    end;
   end;
  end;
 end;
 inherited;
end;

Комментарии и дополнительные сведения

Следует отметить, что события в RichViewEdit могут срабатывать при нажатии Ctrl+Клик, особенно если компонент находится в режиме редактирования. В представленном коде используется базовый RichView без редактирования, что может быть оптимальным решением для чат-приложения, не требующего редактирования текста пользователем.

Заключение

Использование рекомендаций из статьи и внедрение соответствующего кода позволит исправить ошибку с событиями мыши в RichViewEdit и обеспечит корректную работу гиперссылок в чат-приложении на Delphi.

Создано по материалам из источника по ссылке.

Исправление ошибок в работе событий мыши для кликабельных гиперссылок в компоненте RichViewEdit для чат-приложения на Delphi.

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

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

:: Главная :: Ярлыки ::