//Timer1Timer()
var
S: AnsiString;
T: string;
begin
S := StatusBar1.Panels.Items[0].Text ;
T := S[1];
Delete(S, 1, 1);
S := S + T;
StatusBar1.Panels.Items[0].Text := S;
end;
var
S: AnsiString;
T: string;
begin
S := StatusBar1.Panels.Items[0].Text ;
T := S[1];
Delete(S, 1, 1);
S := S + T;
StatusBar1.Panels.Items[0].Text := S;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货