本文整理自网络,侵删。
1、定义一个全局变量保存显示到标题栏的字符串,strScroll: Widestring = '风行天下 - By WindSon ';
2、添加一个Timer控件,设置属性Interval := 300; Enabled:=True;
3、然后添加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个字符放到最后一位 Form1.Caption := strScroll; //在窗体标题栏显示出来。 //Application.Title := strScroll; //在任务栏显示出来。end;
https://www.cnblogs.com/windson/p/12570316.html
相关阅读 >>
Delphi tmsweb core webhttprequest1提交json数据
Delphi idftp 错误:socket error 10054 �c connection reset by peer -连接被重置
Delphi indy 10tidftp中的directorylisting使用
Delphi tstringlist 自带 split 用法
更多相关阅读请进入《Delphi》频道 >>