Scrolling sur un TMemo

Bonjour,

Comme je trouve que les scrollbars d'un TMemo ne sont pas très belles, j'ai créé sur ma fiche deux petits boutons "scroll down" et "scroll up" pour faire monter ou descendre les lignes de texte de mon TMemo.

Problème : lorsque je clique sur mes boutons, le texte semble bien défiler, mais il n'est pas réactualisé, donc il y a plusieurs lignes de texte qui apparaissent les unes sur les autres, et de façon toute buguée...

Voici le code que j'ai assigné à l'événement onMouseDown du bouton "ScrollDown" :

Code:

---

this->Texte->ScrollBy(0,-20);

---

J'ai tout tenté :

Code:

---

1 2	this->Texte->Repaint(); this->Texte->Refresh();

---

etc mais rien n'y fait ! Auriez-vous une idée ?

Fais plutôt ceci

Code:

---

PostMessage(Memo1->Handle, WM_VSCROLL, SB_LINEDOWN, 0);

---

merci !! :D

il faudrait peut-être mettre cela dans la FAQ ?