Faire défiler un texte dans un label

Bonjour à tous et à toutes,

Je voudrais faire défiler un texte dans un TLabel...
J'ai trouvé ce code delphi après une recherche dans le forum, mais je ne sais pas à quoi il correspond en C++ Builder

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.Timer1Timer(Sender: TObject);   var chaine : string;   begin chaine := copy(label1.Caption, 2, length(label1.caption)-1) + copy(label1.Caption, 1, 1); label1.Caption := chaine; end;

---

Si quelqu'un pourrait me le traduire ou me donner une autre méthode, ça m'aiderais beaucoup.

Merci d'avance ;)
FluidBlow

Tu plasse un TTimer et un TLabel sur ta form et dans l'evenement OnTimer du TTimer tu met ce code :

Code:

---

1 2 3 4 5 6

AnsiString texte ; texte = Label1->Caption ; texte += texte[1] ; texte.Delete(1,1) ; Label1->Caption= texte ;

---

Merci ça marche nikel !

Merci beaucoup :D