象QQ那样只要是链接地址的消息，就可以点击，是如何实现的？(100分)

liuyang · 2003-05-20

我这有一个局域网的聊天工具的源程序，想加个QQ那样的功能 只要是链接地址的消息，就可以点击 可以通过关键字比如http什么的。但下面的代码只是自动打开，而我是要让用户选择点击还是 不点击。请问如何实现。是不是要用到自动创建事件，鼠标事件等等？各位帮忙了。：） if Pos('http',edit1.text)>0 then    ShellExecute(handle,'open',pchar(edit1.text),nil,nil,SW_SHOWMAXIMIZED);

xygz · 2003-05-20

给EDIT 一个ONCLICK事件，不是网址的时候是空的，有网址的时候传入参数打开浏览器

姚哥 · 2003-05-20

给EDIT 一个onchange事件，不是网址的时候是空的，有网址的时候传入参数打开浏览器

liuyang · 2003-05-20

能否具体告之？

thx1180 · 2003-05-20

if (Pos('http',edit1.text)>0) and (MessageDlg('打开网页吗？', mtConfirmation, mbOKCancel, 0) = mrOK) then    ShellExecute(handle,'open',pchar(edit1.text),nil,nil,SW_SHOWMAXIMIZED);

独帅 · 2003-05-20

http://www.delphipages.com/tips/thread.cfm?ID=148

liuyang · 2003-05-21

听说QQ那个写文字的地方用的是RichEdit2.0版本的，设置一下（代码设置，属性里面没有） 就可以自动识别http://、Mailto://、News、一大堆东西了 请问RichEdit2.0再哪下载？DELPHI5中自带的RichEdit控件版本是多少的？

liuyang · 2003-05-21

to 独帅 谢谢你提供的。我试试。

独帅 · 2003-05-21

RichEdit是Windows提供的，在riched20.dll里面，看一下它的版本就知道了 我上面找到的那个连接能正常工作，和QQ是一样的

liuyang · 2003-05-21

to 独帅  你提供的http://www.delphipages.com/tips/thread.cfm?ID=148的文章我看了。并做了个例子 可以，但应用在我的CHAT里，是地址的可以出现下划线，鼠标放上去也有小手，但就是点击 无效，很奇怪

独帅 · 2003-05-21

那我就不清楚了，至少我测试的结果是正确的

liuyang · 2003-05-21

to 独帅 还是非常感谢，明天给你分。

liuyang · 2003-05-22

多人接受答案了。

象QQ那样只要是链接地址的消息，就可以点击，是如何实现的？(100分)

liuyang

Unregistered / Unconfirmed

xygz

Unregistered / Unconfirmed

姚哥

Unregistered / Unconfirmed

liuyang

Unregistered / Unconfirmed

thx1180

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

liuyang

Unregistered / Unconfirmed

liuyang

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

liuyang

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

liuyang

Unregistered / Unconfirmed

liuyang

Unregistered / Unconfirmed

Similar threads