超级链接效果
在很多共享软件的关于对话框里有一些模仿网页的超级链接，如主页URL或E-Mail之类的，当鼠标移到它上面的时候，文字变成红色的，当鼠标离开时，文字又变回原来的蓝色，如果用鼠标点击这个链接则会弹出浏览器窗口打开指定的URL或是运行默认的E-Mail程序撰写新邮件，就和真的超链接一样。你是不是也想在你的程序里做一个呢？其实，我们只要调用API函数ShellExecute和在鼠标移动时改变一下文字的颜色，就可以在自己的程序中出现这种效果。
首先新建一个工程，在窗体Form1上添加两个Label组件，它们的Name属性使用默认的Label1和Label2。
然后在Form1的OnCreate事件中加入代码：
Label1->Cursor=crHandPoint;
Label2->Cursor=crHandPoint;
Label1->Font->Color =clBlue;
Label2->Font->Color =clBlue;
Label1->Caption="主页：初学者之家网站";
Label2->Caption="E-Mail：fdlweb@sina.com";
再在Label1的OnClick（单击）事件中加入：
//蓝色的字请改成自己的主页地址
ShellExecute(Handle,NULL,"http://fdlweb.myrice.com/",NULL,NULL,SW_SHOWNORMAL);
在OnMouseMove事件中加入：
Label1->Font->Color=clRed;
在Label2的OnClick事件中加入：
//蓝色的字请改成自己邮箱地址
ShellExecute(Handle,NULL,"mailto:fdlweb@sina.com",NULL,NULL,SW_SHOWNORMAL);
在OnMouseMove事件中加入：
Label2->Font->Color=clRed;
最后在Form1的OnMouseMove事件中加入：
Label1->Font->Color=clBlue;
Label2->Font->Color=clBlue;
代码输入完了，按F9编译运行程序就看到效果了。
