Discussion :

[vg-matrix]

tout le monde, comment afficher un texte qui défile de la droite vers la gauche ou du bas vers le haut?

[mick605]

Salut

Que veux tu dire par la ? Tu veux déplacer simplement un texte dans ta fiche ? Tu peux par exemple mettre ton texte dans un label, placer un timer sur ta fiche, et dans l'évenement OnTimer, mettre :

Code :

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

Label1.Left:=Label1.Left+5 //par exemple

Bonne chance !

[Dr.Who]

oui en effet, dans un label ? dans un canvas ? avec un timer ? dans une boucle ?

[vg-matrix]

à vous, j'ai trouvé ça:

Mettre un TTimer sur la fiche et définir l'événement onTimer avec:

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;

Ça marche comme sur des roulettes