URL

← →
Adios © (2007-03-20 13:14) [0]

как мне в мемо или ричэдит выделить URL если таковой появится, или обрезать весь текст и оставить тока ссылку?

← →
Джо © (2007-03-20 13:17) [1]

См. по теме «конечные автоматы».

← →
clickmaker © (2007-03-20 13:22) [2]

> выделить URL

Pos("http://", text) и далее до пробела или >, если ссылка начинается с <

← →
sniknik © (2007-03-20 13:39) [3]

uses RichEdit; procedure TForm1.FormCreate(Sender: TObject); procedure SetVisibleLink(RichEdit: TRichEdit); var mask: Word; Rect: TRect; begin with RichEdit do begin mask:= SendMessage(Handle, EM_GETEVENTMASK, 0, 0); SendMessage(Handle, EM_SETEVENTMASK, 0, mask or ENM_LINK); SendMessage(Handle, EM_AUTOURLDETECT, Integer(True), 0); end; end; begin SetVisibleLink(RichEdit1); end;

← →
sniknik © (2007-03-20 13:40) [4]

Rect: TRect; лишнее затесалось... (правил здесь).

← →
Adios © (2007-03-20 13:41) [5]

text я так понял это текст из которого выборка происходит, а как мне пробелом ограничить?
например
if pos("http://",adress)>0 then showmessage(adress);
но если adress содержит пробел после ссылки и ещё символы, то сообщение всёравно выскакивает

← →
clickmaker © (2007-03-20 13:42) [6]

> [3] sniknik © (20.03.07 13:39)

и у тебя это в стандартном работает? Не Rx?

← →
Adios © (2007-03-20 13:43) [7]

у меня компилятор EM_GETEVENTMASK не пропускает, говорит что неизвестная переменная

← →
sniknik © (2007-03-20 13:47) [8]

> и у тебя это в стандартном работает? Не Rx?
а типа Rx както по другому работает... имхо таже надстройка над стандартным, как и все компоненты.
а так как у нас использование "левых" компонент запрещено, приходится выкручиваться...

и кстати... перечитал вопрос, и видимо я не о том вовсе... (слово "выделить" неправильно интерпретировал ;)

> у меня компилятор EM_GETEVENTMASK
не все показанное перенес...

> а типа Rx както по другому работает

Rx грузит riched20.dll, если есть. А стандартный richedit32, т.е. первой версии, в которой эта фича не работает

Наследника написал?

> т.е. первой версии, в которой эта фича не работает
в первый раз от тебя слышу... ну может раньше было... не сталкивался в общем. всегда работало.

> Наследника написал?
ничего не писал, кроме показанного, в d7 работает (в смысле ссылки выделяет, если нужно чтобы еще и кликались то там еще чуток кода надо добавить (вопроса о кликах не стояло ;о)))

> [10] sniknik © (20.03.07 14:02)

а, все понял
видимо в новых ОС riched32 просто wrapper, судя по секции импорта

RICHED20.dll
RichEdit10ANSIWndProc

точно. Начиная с 2000. А в 98/NT4 riched32 была отдельной версией

URL Найти похожие ветки