salut a tous

voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
procedure Tmenu.FormCreate(Sender: TObject);
begin
StatusBar1.ControlStyle := StatusBar1.ControlStyle +[csAcceptsControls];
JvGradientProgressBar1.Parent := StatusBar1;
JvGradientProgressBar1.SetBounds(600, 2, 150, 16);
JvGradientProgressBar1.BringToFront;
end;
 
procedure Tmenu.Timer1Timer(Sender: TObject);
begin
JvGradientProgressBar1.Position:=JvGradientProgressBar1.Position+5;
end;
La question que je pose c'est : je veux que mon progressbar tourne en continue ici il tourne 1 fois et il s'arrete, moi je veux qu'il tourne en continue , ma 2eme question je veux faire apparaitre mon texte en couleur dans le statubar et qu'il clignote en même temps, pour que ca fasse jolie.
merci d'avance