本文整理自网络,侵删。
记得曾写过类似功能,但由于对Delphi数据类型不清楚,要花不少代码去处理中文被切半而出现乱码的尴尬。后来知道只需把字符串定义成 WideString 即可解决半个中文的问题了。
实现过程:不停地剪切标题的第1个字符放到最后一位,OK。
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;
搞定,Easy Job !
相关阅读 >>
Delphi调用winapi: getsystemmetrics - 获取系统度量等数值信息
Delphi 通过 arp 协议获取局域网内指定 ip 地址的机器的 mac 地址
Delphi int64:是Delphi中最大的整数,64位有符号整数
Delphi xe intraweb 程序在iis下的发布详细教程
更多相关阅读请进入《Delphi》频道 >>