URL
Andrewtitoff © (2009-11-20 13:44:00)
Как в RichEdit вставить ссылку?
т.е. задача такая: ссылка должна выглядеть как стандартный
URL в веб-броузере ну в общем где угодно в общем такой синенький
подчеркнутый текст и что бы при нажатии на нее открывался браузер с
этой ссылкой...
P.S.
Как открыть ссылку в браузере - я нашел:
ShellExecute(TForm(Owner).Handle,nil,PChar('
http://codesources.net/'), nil, nil,SW_SHOWNORMAL);
А вот как обрабатывать нажатие на нее - непойму, ну и как
поменять ее атрибуты текста...
Andrewtitoff (2009-11-20 14:15:00) [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;
Только почему-то не работает когда текст заранее введен через
дельфи редактор пока не начнешь редактировать...
Наверх 
ЧАТ |
Орешник |
|
