Форум: "Начинающим";
Текущий архив: 2010.01.17;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Andrewtitoff ©   (2009-11-20 13:44) [0]

Как в RichEdit вставить ссылку?
т.е. задача такая: ссылка должна выглядеть как стандартный URL в веб-броузере ну в общем где угодно в общем такой синенький подчеркнутый текст и что бы при нажатии на нее открывался браузер с этой ссылкой...
P.S.
Как открыть ссылку в браузере - я нашел:
ShellExecute(TForm(Owner).Handle,nil,PChar("http://codesources.net/"), nil, nil,SW_SHOWNORMAL);

А вот как обрабатывать нажатие на нее - непойму, ну и как поменять ее атрибуты текста...

---

← →
Andrewtitoff ©   (2009-11-20 14:15) [1]

Нашел!, если кому интересно - то вот оно!:

{....}
protected
procedure wndproc(var message: tmessage); override;
{....}

uses richedit, shellapi;

procedure tform1.formcreate(sender: tobject);
var
mask: word;
begin
mask := sendmessage(richedit1.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 := "scalabium software"#13#10 +
" site is located at www.scalabium.com. welcome to our site.";
end;

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;

Только почему-то не работает когда текст заранее введен через дельфи редактор пока не начнешь редактировать...

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.01.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.005 c