delphi编程类似链接的效果

2016-02-19 17:48 4 1 收藏

有一种朋友不在生活里,却在生命力;有一种陪伴不在身边,却在心间。图老师即在大家的生活中又在身边。这么贴心的服务你感受到了吗?话不多说下面就和大家分享delphi编程类似链接的效果吧。

【 tulaoshi.com - 编程语言 】

  如果你想要有类似主页那样指向某字体,该字体就出现下划线,鼠标指针变为一支手指,按下后就打开浏览器或邮件编写器的功能,请按下列办法做(该方法只是在前面讲的实现超链接的方法上加入一些效果):

  先在一个窗体中加入一个Label1,在OnMouseMove事件里加入下列代码

  

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;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  再将Label1.Cursor的鼠标指针设为crHandPoint,那么就有这种效果了。

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

来源:http://www.tulaoshi.com/n/20160219/1616105.html

延伸阅读
Delphi的编程语言是以Pascal为基础的。Pascal语言具有可读性好、编写容易的特点,这使得它很适合作为基础的开发语言。同时,使用编译器创建的应用程序只生成单个可执行文件(.EXE),正是这种结合,使得Pascal成为Delphi这种先进开发环境的编程语言。 本章中,我们将讨论Object Pascal的主要特点,并讲解如何在事件处理过程和其他应用程...
标签: Delphi
在Delphi中涉及到系统编程的方面毫无例外都要调用API函数,在ShellAPI.pas单元中有要用到的API函数的原型。 实战演练: 一.新建一个应用程序:File->New Applicaton 在Interface部分定义一个消息常量:const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。 二.定义一个全局变量: NotifyIcon:TNotifyIc...
标签: Delphi
  1. 控制INI文件几法 要利用.INI文件做程序有关数据的存储工作,就需要能读和写.INI文件,所以列了如下方法给大家参考: 从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString( 'windows', // []中标题的名字 'NullPort', // =号前的名字 'NIL', // 如果没有找到字符串时,返回的默认值 strResult, //存...
在许多程序的关于对话框中,我们常可以看到超级链接式的标签,只须轻轻一点,就能立即启动电子邮件程序给作者写信,或者启动浏览器观看某主页,或者远程登录,或者自动链入新闻组 如果你苦于找不到实现这些功能的Delphi控件,又无法在帮助文件中找到相关主题,那不妨参照下文,亲手一试! 别看上述的超级链接功能繁多,其实用一条...
控制Windows的桌面壁纸是一些看图工具常有的功能,要实现该功能是非常容易的,以下的程序使壁纸换为我们想要的图片,如果THEPCHAR为空,那么就取消壁纸,变为Win默认色彩;但这种方法只是暂时的,在WINDOWS重新启动后还是恢复原来的位图,所以要永久保留还需要对WIN.INI文件进行改写操作,才能保存住我们改动的图片不被替换。但这种暂时性...

经验教程

754

收藏

55
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部