delphi滚动窗口标题

本文整理自网络，侵删。

 function RollStr(str: string; count: Integer = 1): string;
var
i, k, len: Integer;
begin
len := length(str);
for k := 0 to Count - 1 do
begin
if ord(str[1]) > 127 then
str := copy(str, 3, MAXINT) + copy(str, 1, 2)
else
str := copy(str, 2, MAXINT) + copy(str, 1, 1);
end;
Result := str;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
caption := RollStr(caption);
end;
 

相关阅读 >>

Delphi rest服务器返回图像并显示在浏览器中

Delphi listview用法

Delphi inttohex 查看字符的十六进制值

Delphi 获取所有磁盘分区

屏幕抓取Delphi

Delphi sql语句查询最新的各个台位的最后一个检测值

Delphi 根据窗口类判断程序是否运行

Delphi bytestofile

Delphi http post json示例

Delphi rs232c串行通讯接口的应用

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

转载请注明出处：木庄网络博客 » delphi滚动窗口标题