label clignotantRésolu

Question

Salut 

voila j'ai un probl&#232;me : j'ai fait une animation d'un label mais quand il bouge il arr&#234;te pas clignot&#233;. j'ai deja essayer de changer l'interval mai ca fonctionne pas.

quelqu'un peut m'aider pliz

Matt 261 · Accepted Answer

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).

Cirec · Answer

Salut,
si tu veux de l'aide il faudra &#234;tre un peut plus pr&#233;cis dans ta question et surtout donner les proc&#233;dures en question, parce que jusqu'&#224; preuve du contraire c'est pas un site de voyance ici  et les probl&#232;mes sur un code peuvent &#234;tre aussi diverses que vari&#233;s.


Mets toi &#224; notre place :
On te dit il y a un bug mais le code tu ne l'as pas ...
Maintenant trouves le bug 


Y a pas comme un probl&#232;me dans l&#146;&#233;nonc&#233; la   

@+
Cirec

Hav0k_2006 · Answer

d&#233;sol&#233; 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&#233;ponse

Cirec · Answer

Bon alors avec ces deux timers tu ne fais que d&#233;placer ton TLabel, il n'y a pas de clignotement dans ce code.
Sinon  tout ce que je peut dire sur ces deux proc&#233;dures c'est qu'elles ne s'arr&#234;teront jamais puisqu'une r&#233;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.

@+
Cirec

Matt 261 · Answer

Je pense que tu dois avoir un 3ème timer qui fait cllignoter non?

cs_rt15 · Answer

Ah mon avis, son problème, c'est qu'il clignote, justement !

Une histoire de redraw ou quelque chose comme ça probablement...

Matt 261 · Answer

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

hurrycane · Answer

c'est quoi la config de ton pc ? serieux

Matt 261 · Answer

Quel rapport Hurrycane entre son problème et la config du PC?

Hav0k_2006 · Answer

C'est bon le probl&#232;me est r&#233;gl&#233;e!  
Form1.Doublebuffered:=true;
Merci Matt 261
et merci autres de m'avoir r&#233;pondu 
Bye

Matt 261 · Answer

C'est grâce à rt15 que j'ai trouvé ton problème si il ne l'avait pas dit je n'aurais pas trouvé! :

rt15 le 06/04/2006 15:52:14

Ah mon avis, son problème, c'est qu'il clignote, justement !

Une histoire de redraw ou quelque chose comme ça probablement...

Label clignotant

11 réponses

Votre réponse

Discussions similaires