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


本文整理自网络,侵删。

 实现过程:不停地剪切标题的第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;

相关阅读 >>

Delphi中datetimepicker组件介绍

Delphi 设置webbrowser 代理服务器 与 useragent

Delphi 在memo查找字符并定位

Delphi流类 遍历读取流中的所有数据

Delphi 判断安卓app第一次启动

Delphi 执行一个外部程序,当外部程序结束后言主程序立即响应

Delphi 获取系统串口列表

Delphi的rtti实现数据集的简单对象化

Delphi 调用系统右键菜单

Delphi通过spcomm com口发短信包括pud编码解码

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...