Différence: Comment réaliser un effet de scroll sur un label
Quelle est la différence ?
Dans un nouveau projet, je fais un test avec le code
Code:
1
2
3
4
5
| procedure TForm1.Timer1Timer(Sender: TObject);
Const Saut=1;
begin
Label1.Caption:=Copy(Label1.Caption,Saut+1,Length(Label1.Caption)-Saut)
+Copy(Label1.Caption,1,Saut) ; |
tel qu'expliqué dans la FAQ et ca marche nickel.
J'utilise le même code dans un splashscreen et j'ajoute même
Code:
1
2
3
4
| procedure TSplashScreen.FormShow(Sender: TObject);
begin
timer1.Enabled:=True;
end; |
pour être certain que le timer est fonctionnel et là, ca ne fonctionne pas. La procécure timer1timer n'est pas activée (je met un showmessage dans le code mais je ne le vois pas.) La procédure s'active en boucle si j'essaie timer1timer dans l'événement On Show de mon splashscreen mais je dois planter le programme car ca ne s'arrête pas.
Pourquoi la procédure timer1timer ne débute pas même si on met timer1.enable à true ?
Merci
Duan
