Использую RichEdit от JVCL, так как нужна возможность использования гиперлинков, но есть ложка дёгтя - нужна возможность указания адреса гиперлинка отличного от того что написано в тексте. Например в одном месте хочу чтобы переход по гиперлинку со словом "поиск" происходил на yahoo.com, а в другом месте на yandex.com. Все компоненты которые я видел предоставляют возможность в гиперлинках в rtf отлавливать только текст, а не линк... как бы сие прикрутить?

Delphi щас под рукой нет, но могу рассказать принцип данного действия в обычном RichEdit'е.

Значит, нам нужно сделать обработчик нажатия гиперссылки примерно так:

Код

Procedure TForm1.LinkClick(Var Msg: TMessage); Type   PENLINK = ^TENLINK; Begin   If PNMHDR(Msg.lParam)^.Code = EN_LINK Then     If PENLINK(Msg.lParam)^.Msg = WM_LBUTTONUP Then     Begin       ShellExecute(Handle, 'Open', 'http://www.google.com',         NIL, NIL, SW_SHOWNORMAL);       Exit;     End;   Inherited; End;

Затем при созданни формы нужно RichEdit'у послать мессаги, которые отключат автоопределение URL-адресов (по умолчанию отключено), затем послать такую, кажись мессагу, чтобы включить линки:

Код

SendMessage(RichEdit.Handle, EM_SETEVENTMASK, 0,     SendMessage(RichEdit.Handle, EM_GETEVENTMASK, 0, 0) or ENM_LINK);

Затем нужно подготовить структуру CHARFORMAT2: описание здесь

И затем послать сообщение EM_SETCHARFORMAT. Не помню ,к сожалению, третьего параметра.
Структура обязана содержать следующие флаги:

Код

FillChar(Struct, SizeOf(CHARFORMAT2), 0);   cbSize := SizeOf(CHARFORMAT2);   dwMask := CFM_LINK or CFM_UNDERLINETYPE;   dwEffects := CFE_LINK;   bUnderlineType := CFU_UNDERLINE;

Еще нужно установить синий цвет - это смотреть в полях crTextColor.
Удачи!

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 01:22