一个label的问题？

我用一个label显示一个网址，怎么才能做到显示出来的地址点击直接可以链接呢？  
  比如label.caption   :=   www.163.com;  
 

• · 推荐参考文章：
• HTTP500内部服务器错误修正办法
• IIS6架设网站常见问题及症状答疑
• 一位高手整理的IIS FAQ
• IIS应用常见问题解答
• Windows Media服务器和Web服务器介绍
• 电影服务器中电影的加密法
• 流媒体的底层与中间层同步技术介绍
• Windows Media技术平台概览
• 电影服务器多播发布形式(1)
• 电影服务器平台的种类

· 网友精彩回答：

在label的click事件里添加:  
  shellexecute(0,   open,   www.sohu.com,   nil,   nil,   sw_show);  
  要引用shellapi单元

如果要做成一般的链接效果,还可以加以下代码:  
  procedure   tform1.label1mouseenter(sender:   tobject);  
  begin  
      label1.font.color   :=   clblue;  
      label1.font.style   :=   [fsitalic,fsunderline];  
      label1.cursor   :=   crhandpoint;  
  end;  
   
  procedure   tform1.label1mouseleave(sender:   tobject);  
  begin  
      label1.font.color   :=   clblack;  
      label1.font.style   :=   [];  
  end;  
 

没记错得话,suipack   界面控件都有直接可以用的,不用编码,设置一下就行了