有一种朋友不在生活里，却在生命力；有一种陪伴不在身边，却在心间。图老师即在大家的生活中又在身边。这么贴心的服务你感受到了吗？话不多说下面就和大家分享delphi编程类似链接的效果吧。
【 tulaoshi.com - 编程语言 】
如果你想要有类似主页那样指向某字体，该字体就出现下划线，鼠标指针变为一支手指，按下后就打开浏览器或邮件编写器的功能，请按下列办法做（该方法只是在前面讲的实现超链接的方法上加入一些效果）：
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）先在一个窗体中加入一个Label1，在OnMouseMove事件里加入下列代码
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）
procedure TForm1.Label1MouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer);beginLabel1.Font.Style:=[fsbold,fsunderline];Label1.Font.Color:=clYellow;end;
接着在Form1的OnMouseMove事件里加入下列代码
procedure TForm1.FormMouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer);beginLabel1.Font.Style:=[fsbold];Label1.Font.Color :=clmaroon;end;procedure TForm1.Label1Click(Sender: TObject);beginShellexecute(handle,nil,pchar(mailto:guihong@163.net),nil,nil,sw_shownormal);end;
再将Label1.Cursor的鼠标指针设为crHandPoint，那么就有这种效果了。
来源:https://www.tulaoshi.com/n/20160219/1616105.html
看过《delphi编程类似链接的效果》的人还看了以下文章 更多>>
