要达到这种走马灯效果，得用什么代码
DELPHI的源码，用了字符复制函数，与册除字符函数。。。原理简单。
procedure TForm1.FormCreate(Sender: TObject);
begin
s:= 'TEST ';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
s:=s+copy(s,1,1);
delete(s,1,1);
label1.Caption:=s;
Label1.Refresh;
end;
DELPHI的源码，用了字符复制函数，与册除字符函数。。。原理简单。
procedure TForm1.FormCreate(Sender: TObject);
begin
s:= 'TEST ';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
s:=s+copy(s,1,1);
delete(s,1,1);
label1.Caption:=s;
Label1.Refresh;
end;
多重随机标签