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 : Sélectionner tout - Visualiser dans une fenêtre à part
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