Discussion :

[FluidBlow]

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

[pottiez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
AnsiString texte ;
texte = Label1->Caption ;
texte += texte[1] ;
texte.Delete(1,1) ;
Label1->Caption= texte ;

[FluidBlow]

Merci ça marche nikel !

Merci beaucoup