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

Question

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

Answer 1

http://expert.csdn.net/Expert/topic/1486/1486205.xml

Answer 2

QQ那个写文字的地方用的是RichEdit2.0版本的，设置一下（代码设置，属性里面没有）就可以自动识别http://、Mailto://、News、一大堆东西了

Answer 3

to ehom(？！) 
谢谢你的帖子，可http://www.ehomsoft.com/test.rar下载不了
能否发到我的信箱里我参考一下，谢谢
[email protected]

Answer 4

to Linux2001(我想买手提电脑啊！) 
请问RichEdit2.0再哪下载？DELPHI5中自带的RichEdit控件版本是多少的？

Answer 5

那个早就删除了,重写了个例子,供参考~~~http://www.ehomsoft.com/mine/UrlTest.rar

Answer 6

// 告诉你一个好方法，OK 要给我加分哦！
// 在Label里放上网址 如： www.csdn.net
// 当在点击Label的事什里创建控件 TWebBrowser,设其 Navigate 属性为 Label.Caption
// 代码如下：
procedure TForm.Label1Click(Sender: TObject);
Var
      WebBrowser : TWebBrower ; // 要引用 OleCtrls, SHDocVw 单元哦
begin
      WebBrowser := TWebBrower.Create(Self) ;
      WebBrowser.Navigate := Label.Caption ; // 这就是网址 
      .........
end;

Answer 7

告诉你一个，更简单的方法：
ShellExecute(0, 'open', 'http://www.csdn.net', nil, nil, SW_NORMAL);

Answer 8

richedit 2.0 up 就有这种能力