有一种朋友不在生活里,却在生命力;有一种陪伴不在身边,却在心间。即在大家的生活中又在身边。这么贴心的服务你感受到了吗?话不多说下面就和大家分享delphi编程类似链接的效果吧。
如果你想要有类似主页那样指向某字体,该字体就出现下划线,鼠标指针变为一支手指,按下后就打开浏览器或邮件编写器的功能,请按下列办法做(该方法只是在前面讲的实现超链接的方法上加入一些效果):
先在一个窗体中加入一个Label1,在OnMouseMove事件里加入下列代码
procedure (Sender: TObject;,);,;
接着在Form1的OnMouseMove事件里加入下列代码
procedure (Sender: TObject;,); :=clmaroon;end;procedure (Sender: TObject);beginShellexecute(handle,nil,pchar(mailto:[email protected]net),nil,nil,sw_shownormal);end;
再将的鼠标指针设为,那么就有这种效果了。