Astuces
- Composants - Défilement
de droite à gauche d'un label en Delphi
Ajouter un composant
TTimer et TLabel.
Mettez la propriété Interval du Timer à 100.
procedure
TForm1.Timer1Timer(Sender: TObject); begin
Label1.Left:=Label1.Left-20; //20
est la vitesse de défilement if Label1.Left<=-Label1.Width then
Label1.Left:=Form1.ClientWidth-Label1.Width; end;
