Discussion :

[Duan]

Quelle est la différence ?

Dans un nouveau projet, je fais un test avec le code

Code :

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

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 :

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

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

[Matt2094]

C'est peut-être car au démarrage du programme (donc dans le splashscreen), le système est saturé, et ne peut donc pas éxécuter ta procedure. Cherche sur la procedure TApplication.ProcessMessages.

[Jipété]

C'est peut-être car au démarrage du programme (donc dans le splashscreen), le système est saturé,

? ? ?

Pourquoi la procédure timer1timer ne débute pas même si on met timer1.enable à true ?

Es-tu bien *sûr* d'avoir assigné l'événement OnTimer à ton Timer dans l'inspecteur d'objets ?
Méfiance avec les copier/coller de code !

Mes 2 cts,
JP