Autoscrool sur une listBox

Question

Voila mon petit problème qui ne doit pas en être un gros.

J'ai programmé un chat en delphi et pour conserver les messages (c'est a dire la liste de messages du salon), j'ai utilisé une listbox.

Mais le petit problème est que des que les messages commencent a dépassé la hauteur de la liste box, on voit une barre de défilement qui apparait. Jusque la vous me direz normal.

Mais ce qui m'embete est que des qu'un message est envoyé, la barre de defilement reste en haut et ne descend pas au fur et a mesure des messages comme dans un vrai chat.

Comment remedier a ce petit problème SVP ?

       J'espere que j'ai été assez clair.

           Merci pour vos reponses.

                              Billou_13

cs_Delphiprog · Answer

Je suppose que tu emploies la méthode Add pour ajouter des messages à la listBox. Or, cette méthode renvoie l'index de l'élément ajouté à la liste. Il suffit donc de l'exploiter (ce qui, bien souvent, n'est pas le cas)  de la façon suivante :

ListBox.ItemIndex := ListBox.Items.Add(MonMessage);

Ainsi, le curseur de défilement sera synchronisé avec la position réelle de la sélection.
May Delphi be with you

japee · Answer

Oh oui, simple et efficace.
Remplace avantageusement :
 ListBox.Items.Add(MonMessage);
 ListBox.ItemIndex := ListBox.Items.Count -1;
comme je faisais, mais je ne sui semble-t'il pas le seul  ;) 

Pour anticiper sur la question suivante, si l'on ne veut pas que le dernier Item ajouté reste sélectionné, on peut ajouter :

ListBox.ItemIndex := -1;


Bonne prog'  :-p

jeromefer · Answer

Bonjour a tous et Merci pour l'astuce et l 'exemple bien pratique.
Bien vu encore une foi de plus
Jerome

Autoscrool sur une listBox

3 réponses

Votre réponse