Discussion :

[Kriboo]

Bonjour

Je souhaiterais savoir comment puis-je récupérer l'événement d'un scrollbar lorsque qu'il est en déplacement pour un TListBox?

J'ai un TListBox mis à jours périodiquement (toute les secondes). Lorsque je souhaite déplacer le scroll vertical, étant donné qu'il y'a la mise à jour périodique, je n'ai que 1 seconde. Lors de la mise à jour il remet le scrollbar à l'origine.

J'ai bien essayé de mettre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

List.ItemIndex := List.TopIndex

me disant que lorsque je déplace la barre, le TopIndex changerais, mais que ça soit le cas ou pas, il faudrait effectuer le déplacement en moins de 1 seconde.

Je pensais soit trouver une autre solution pour mettre à jour en "temps réel" la position, soit intercepter le déplacement de scrollbar pour pouvoir arrêter la mise a jour de la box durant le déplacement. exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if not List.Scrolling then MettreAJourList
else List.ItemIndex := List.PositionScrollBar

Merci

[popo]

Le rafraichissement toutes les secondes est-il vraiment nécessaire ?
Généralement quand j'ai besoin de rafraichir une liste je le fait toutes les 30 secondes environs.

Je place un compteur qui affiche le nombre de seconde avant le prohain rafraichissement et je met un bouton à coté pour forcer le rafraichissement si on ne veux pas attendre les 30 secondes.

Jamais personne ne s'en ai plaint.

[Kriboo]

Oui il est vrai que cela serait plus confortable, mais malheureusement mon application est couplée avec un Système industriel dont je scrute les états (toute les secondes environ) et je ne peut me permettre d'étendre ce délais. (je perdrais la cohérence entre mon application et le système).

Donc il faut que je trouve une astuce me permettant de faire défiler mon scrolbar tout en assurant la mise a jour (sauf de l'élément scrollé évidemment, le temps de le scroller).

[Lung]

Peut-être une piste ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  with ListBox1 do
  begin
    ItemIndex := -1;
    SendMessage(Handle, LB_SETCARETINDEX, Items.Count - 1, 0);
  end;

[Kriboo]

Ce message a été corrigé, en rouge les bêtises et en italique les remarques de la correction. en normal le message d'origine

Peut-être une piste ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  with ListBox1 do
  begin
    ItemIndex := -1;
    SendMessage(Handle, LB_SETCARETINDEX, Items.Count - 1, 0);
  end;

Cela n'a pas l'air de lui plaire, il viole la mémoire à tout va. le Méchant.
En fait c'est moi qui ai déconné, ça marche très bien par contre comme je le pense (cf plus loin) ca cale a la fin de la liste hors je souhaite maintenir la position courante. n'y a t-il pas un moyen de récupérer cette position sans que le click n'ai été relaché???

Bon par contre j'aurais voulu comprendre le fonctionnement de ce que tu me proposais.

On fixe l'index à -1 (valeur par défaut) c'est à dire on ne choisi aucun Item.
Et on dit au ListBox (via son Handle) de positionner le Caret à Item.Count, mais cela ne devrait t'il pas me positionner à la fin de la liste? et non maintenir la position courante ENTRE le début et la fin comme je le veux?

Merci en tout cas

[Kriboo]

J'ai un problème supplémentaire, c'est que lorsque j'essaye d'utiliser la scrollbar (verticale), parfois la ScrollBar garde le focus (je suppose) car plus aucun contrôle ne fonctionne, même pas pour fermer la fenetre. Lorsque cela arrive, je doit cliquer d'abord sur les Items de la ListBox puis utiliser les contrôles que je souhaite.

Et cela n'a peut être pas d'influence mais j'ai redéfini DrawItem de mon ListBox pour le personnaliser

[Kriboo]

Pas d'idée potentielle ou de piste pour la position du scrollbarre malgrès la mise a jours périodique de ma Frame? ni pour mon probleme de "focus" je suppose?