1,184
社区成员
发帖
与我相关
我的任务
分享Delphi版顶起啊！共享桌面歌词效果
在Windows XP下效果图：
在Windows 7下有焦点时效果图：
在Windows 7下无焦点时效果图：
在Windows 7下右键菜单效果图：
很多音频播放软件都带有桌面歌词效果，在桌面上显示歌词字幕，可以设置是否置顶桌面，是否背景穿透等等。要实现这样的效果方法有很多种，利用GDI+的特性来实现桌面歌词效果，可以达到歌词字幕的平滑柔和。在参考了CodeProject的一篇文章，文章标题《To Create A COOL Desktop Lyrics Demo 》链接地址：http://www.codeproject.com/KB/GDI-plus/DesktopLyrics.aspx。这是使用C++和GDI+来实现的，在这里我另外使用Delphi和GDI+来再次实现下，前提需要Delphi配置GDI+环境，若是Delphi 7的话可参考文章《Delphi 7下IGDIPlus库的使用》，链接地址：http://blog.csdn.net/akof1314/archive/2011/02/24/6205578.aspx。
新建一个应用程序，在窗体上放置一个TTimer和一个TPopupMenu，TTimer的Interval属性为1500，TPopupMenu建立三个子菜单项，分别为“总在最前”、“背景穿透”和“退出”。再准备一张背景图片。工程源代码如下：
在Windows 7下有焦点时效果图：
在Windows 7下无焦点时效果图：
在Windows 7下右键菜单效果图：
很多音频播放软件都带有桌面歌词效果，在桌面上显示歌词字幕，可以设置是否置顶桌面，是否背景穿透等等。要实现这样的效果方法有很多种，利用GDI+的特性来实现桌面歌词效果，可以达到歌词字幕的平滑柔和。在参考了CodeProject的一篇文章，文章标题《To Create A COOL Desktop Lyrics Demo 》链接地址：http://www.codeproject.com/KB/GDI-plus/DesktopLyrics.aspx。这是使用C++和GDI+来实现的，在这里我另外使用Delphi和GDI+来再次实现下，前提需要Delphi配置GDI+环境，若是Delphi 7的话可参考文章《Delphi 7下IGDIPlus库的使用》，链接地址：http://blog.csdn.net/akof1314/archive/2011/02/24/6205578.aspx。
新建一个应用程序，在窗体上放置一个TTimer和一个TPopupMenu，TTimer的Interval属性为1500，TPopupMenu建立三个子菜单项，分别为“总在最前”、“背景穿透”和“退出”。再准备一张背景图片。工程源代码如下：
...全文
请发表友善的回复…
发表回复
xiedingan 2013-03-31
- 打赏
- 举报
收藏了。。。很漂亮
mcsma801214 2012-06-17
- 打赏
- 举报
楼主好人，谢谢分享了
tempbad123 2011-10-25
- 打赏
- 举报
我就想问下。怎么取消桌面穿透；我一直在想。就是实现不了；
youngalex 2011-10-21
- 打赏
- 举报
新人 刚接触delphi 原来这么强大！！
sunyesy 2011-09-28
- 打赏
- 举报
vreygood
spr2372 2011-09-21
- 打赏
- 举报
stor up
EmbarcaderoSC 2011-08-23
- 打赏
- 举报
[Quote=引用楼主 akof1314 的回复:]
在Windows XP下效果图：
在Windows 7下有焦点时效果图：
在Windows 7下无焦点时效果图：
在Windows 7下右键菜单效果图：
很多音频播放软件都带有桌面歌词效果，在桌面上显示歌词字幕，可以设置是否置顶桌面，是否背景穿透等等。要实现这样的效果方法有很多种，利用GDI+的特性来实现桌面歌词效果，可以达到歌词字幕的平滑柔和。在参考了Co……
[/Quote]
高手高手高高手，顶起顶起：）
在Windows XP下效果图：
在Windows 7下有焦点时效果图：
在Windows 7下无焦点时效果图：
在Windows 7下右键菜单效果图：
很多音频播放软件都带有桌面歌词效果，在桌面上显示歌词字幕，可以设置是否置顶桌面，是否背景穿透等等。要实现这样的效果方法有很多种，利用GDI+的特性来实现桌面歌词效果，可以达到歌词字幕的平滑柔和。在参考了Co……
[/Quote]
高手高手高高手，顶起顶起：）
smhpnuaa 2011-07-05
- 打赏
- 举报
good, thanks
nbman2013 2011-07-01
- 打赏
- 举报
花了1资源分下载了
luweilovestudy 2011-06-22
- 打赏
- 举报
outofmemory？？？？？
mlhy20060406 2011-05-24
- 打赏
- 举报
好东西，收藏了。
yangxie5201314 2011-05-24
- 打赏
- 举报
我发现用这个头像的人，都很牛叉。
zoohouse 2011-05-24
- 打赏
- 举报
哇，好火爆啊！
volcanol 2011-05-24
- 打赏
- 举报
先收藏起来，慢慢学习研究
linghengmao 2011-05-24
- 打赏
- 举报
頂！！！
promiseoflife 2011-05-24
- 打赏
- 举报
受教了~
mlhy20060406 2011-05-24
- 打赏
- 举报
好东西，收藏了。
lyhoo163 2011-05-24
- 打赏
- 举报
收藏了。谢谢。
ILikeDelphi7 2011-05-24
- 打赏
- 举报
不错，下来学习一下
annwatasi 2011-05-24
- 打赏
- 举报
好强大，delphi好棒。
加载更多回复（111）
