Hav0k_2006
Messages postés3Date d'inscriptionmercredi 5 avril 2006StatutMembreDernière intervention 7 avril 2006
-
5 avril 2006 à 13:05
Matt 261
Messages postés1173Date d'inscriptionmercredi 2 novembre 2005StatutMembreDernière intervention10 septembre 2011
-
8 avril 2006 à 10:52
Salut
voila j'ai un problème : j'ai fait une animation d'un label mais quand il bouge il arrête pas clignoté. j'ai deja essayer de changer l'interval mai ca fonctionne pas.
Matt 261
Messages postés1173Date d'inscriptionmercredi 2 novembre 2005StatutMembreDernière intervention10 septembre 20113 6 avril 2006 à 08:40
Si j'ai bien compris HavOk_2006 veut que quand son label bouge, il arrête de clignoter ce qui veut dire qu'il utilise un timer, un label et que le timer fait clignoter le label puis le fait bouger (enfin je pense).
Matt 261
Messages postés1173Date d'inscriptionmercredi 2 novembre 2005StatutMembreDernière intervention10 septembre 20113 6 avril 2006 à 16:04
AAAAAAAAAAAAHHH bein voila ton problème c'est que comme dit rt15 c'est que ton label "clignote" alors qu'il ne devrait pas. Donc essaie ce petit bout de code à mettre à OnCreate de ta Form:
Form1.DoubleBuffer:=True //On active le double buffer
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 6 avril 2006 à 00:22
Salut,
si tu veux de l'aide il faudra être un peut plus précis dans ta question et surtout donner les procédures en question, parce que jusqu'à preuve du contraire c'est pas un site de voyance ici et les problèmes sur un code peuvent être aussi diverses que variés.
Mets toi à notre place :
On te dit il y a un bug mais le code tu ne l'as pas ...
Maintenant trouves le bug
Hav0k_2006
Messages postés3Date d'inscriptionmercredi 5 avril 2006StatutMembreDernière intervention 7 avril 2006 6 avril 2006 à 10:45
désolé pour le manque d'infos Cirec. c'est exactement ce ke Matt 261 dit a part qu'il y a 2 timer un pour le faire descendre et l'autre pour le faire monter.
voila j'ai ca :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.top:=label1.top+1;
if label1.top= 100 then
begin
timer1.enabled:=false;
timer2.Enabled:=true;
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
label1.top:=label1.top-1;
if label1.top= 60 then
begin
timer2.enabled:=false;
timer1.enabled:=true;
end;
end;
merci de votre réponse
Vous n’avez pas trouvé la réponse que vous recherchez ?
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 6 avril 2006 à 11:05
Bon alors avec ces deux timers tu ne fais que déplacer ton TLabel, il n'y a pas de clignotement dans ce code.
Sinon tout ce que je peut dire sur ces deux procédures c'est qu'elles ne s'arrêteront jamais puisqu'une réactive l'autre et le tout est en boucle.
Donc tu devrais encore avoir un bout de code qui lui fait clignoter ton TLabel et c'est celui la qu'il faut nous donner.