TImage + Tpanel + Scintillements sur l'image et le panel

Bonjour à tous,

Dans un panel, j'ai une image. Et je la fais déplacer avec ce code :

Code:

---

1 2 3 4

Panel->Repaint(); Image->Top = Image->Top + 78; Image->Repaint(); Sleep(20);

---

Mon problème, c'est que lorsque l'image se déplace, j'ai une sorte de scintillement de l'image et du panel, des traits horizontaux et verticaux sur le panel et l'image.

Avez-vous une solution ?


Je vous remercie,


Anthony

Bonjour,

Regarde du côté de:

Code:

---

1 2	DoubleBuffered = true;

---

a placer dans le contructeur de la TForm (de mémoire).

@+
;)

Salut !

Je pense que tu es très mal parti :

Citation:

---

Panel->Repaint();
Image->Top = Image->Top + 78;
Image->Repaint();
Sleep(20);

---

Les objets de la VCL sont des objets initialement conçus pour la bureatique (positionnement statique) !
Tenter de les détourner de ce contexte expose à des problèmes de scintillement !

Pourquoi Sleep ?

A plus !

Bonjour,

effectivement, il faut rajouter dans l'évenement OnCreate de la fiche :

Code:

---

1 2	Form1 -> DoubleBuffered = true ;

---