Discussion :

[Techsan]

Salut a tous

Je voudrais savoir si on peut faire defiler le texte dans label? et si oui comment?

Merci d avance

[siocnarf]

Une méthode: tu mets un TTimer sur la fiche et tu définis 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;

Il serait étonnant qu'il n'existe pas un composant tout fait.

[Thierry G.]

LMD (composants free avec le package LMD-Tools Special Edition, fourmis avec delphi sur le cd companion tools)

http://www.ceberus.com/lmd/download/index.php3#LMD-Tools%20Special%20Edition

delphi area (composants freeware)

http://www.delphiarea.com/products/textfader/

mais il en existe bien d'autres encore...

[Seb]

Salut,

Si tu ne veux pas le faire toi même, dans la Jvcl, tu as le JvScrollingLabel label qui fait défiler le texte .

A+,

Seb.

[busy999]

voilà un composant qui devrait t'interresser :
http://www.astase.com/delphi/composants/slidelabel/index.html

[Techsan]

Merci pour vos reponses, je vais utilise slidelabel, qui me semble donner un rendu plus jolie que je Jcvl