Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Подсветить ссылки в TRichEdit

Delphi , Компоненты и Классы , TMemo и TRichEdit

Подсветить ссылки в TRichEdit

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  So what we need: 
  1. drop on your form a RichEdit component from win32 page of component 
  palette 
  2. in OnCreate event of your form write the next code: 
}

 procedure TForm1.FormCreate(Sender: TObject);
 var
   mask: Word;
 begin
   mask := SendMessage(Handle, EM_GETEVENTMASK, 0, 0);
   SendMessage(RichEdit1.Handle, EM_SETEVENTMASK, 0, mask or ENM_LINK);
   SendMessage(RichEdit1.Handle, EM_AUTOURLDETECT, Integer(True), 0);
   RichEdit1.Text := 'SwissDelphiCenter.com: '#13#10 +
     ' Site is located at www.SwissDelphiCenter.com';
 end;

 { 
  After that your Richedit will convert automatically any URLs in highlighted 
  (blue color and underlined). Even if you'll start to enter any text directly 
  in Richedit, any begings for URL will be converted too (not only existing 
  text string but new too) 
}

 // 3. now we must detect mouse clicks in URL range. For this task we must 
//    override WndProc method of our form: 
type
   TForm1 = class(TForm)
   protected
     procedure WndProc(var Message: TMessage); override;
   end;

 // 4. the implementation looks like this: 

procedure TForm1.WndProc(var Message: TMessage);
 var
   p: TENLink;
   strURL: string;
 begin
   if (Message.Msg = WM_NOTIFY) then
   begin
     if (PNMHDR(Message.lParam).code = EN_LINK) then
     begin
       p := TENLink(Pointer(TWMNotify(Message).NMHdr)^);
       if (p.Msg = WM_LBUTTONDOWN) then
       begin
         SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, Longint(@(p.chrg)));
         strURL := RichEdit1.SelText;
         ShellExecute(Handle, 'open', PChar(strURL), 0, 0, SW_SHOWNORMAL);
       end
     end
   end;

   inherited;
 end;

 { 
 5. Now you can compile your project (don't forget to include Richedit and 
 ShellAPI units in uses clause). 
}

Статья Подсветить ссылки в TRichEdit раздела Компоненты и Классы TMemo и TRichEdit может быть полезна для разработчиков на Delphi и FreePascal.


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


:: 2010-01-17 17:35:20 :: re:Подсветить ссылки в TRichEdit

пользователь: Alex.

Предложенный код подчеркивает ссылки web-страниц. На электронные адреса данный код не влияет. Что надо добавить или изменить в коде, чтобы выделялись и работали ссылки вида “mymail@mail.ru”?


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



:: Главная :: TMemo и TRichEdit ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 18:07:58/0.033621072769165/0