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 net.httpclient用最精简的代码获取网页数据

Delphi windows 编程[18] - 更换菜单项: modifymenu

Delphi tlist性能注意事项

Delphi和c++指针详解

Delphi - 如何执行windows、osx、linux的外部程序？

Delphi 计算程序运行时间

Delphi 创建多级目录

Delphi图像hash算法，关于图像相似度问题

Delphi splitstring 字符串分割成字符串组

Delphi 快速检测是否联网

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

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