RSS订阅 | 匿名投稿
您的位置:网站首页 > 技巧 > 正文

Delphi模仿“千千静听”滚动标题栏

作者:admin 来源:未知 日期:2010/5/1 20:41:20 人气: 标签:

实现过程:不停地剪切标题的第1个字符放到最后一位,OK。

1、定义一个全局变量保存显示到标题栏的字符串
var
strScroll:Widestring = 'Beyond - 海阔天空.mp3 - 千千静听 www.delphitop.com ';

2、添加一个Timer控件,设置属性
Interval := 250; //这个步长和千千静听是一样的。
Enabled:=True; //当然这些都可以在属性页里设置。
然后添加Timer事件
procedure TForm1.Timer1Timer(Sender: TObject);
var
strTrim:Widestring;
begin
strTrim:= copy(strScroll,1,1); //获取第1个字符
Delete(strScroll,1,1); //将第1个字符删除
strScroll:=strScroll+strTrim; //将原来第1个字符放到最后一位
Application.Title:= strScroll; //显示出来。
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: