Delphi模仿“千千静听”滚动标题栏，非常简单！

本文整理自网络，侵删。

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

相关阅读 >>

Delphi做繁体简体转换

Delphi 遍历pe文件

Delphi 常用函数单元 umyfunctions

Delphi fmx getapppath 获取app路径

Delphi 编写系统服务

Delphi webbrowser1 设置获取编码

汇编文档进制及进制的转换

Delphi 关闭uac 单元

Delphi的tstreamreader逐行读取文本文件

Delphi exe图标替换

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi模仿“千千静听”滚动标题栏，非常简单！