api技巧集(三)之2

王朝other·作者佚名  2008-05-18
窄屏简体版  字體: |||超大  

超级链接效果

在很多共享软件的关于对话框里有一些模仿网页的超级链接,如主页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编译运行程序就看到效果了。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航