ScrollBars de la ScrollBox invisibles (avec un "s", c'est les sbr, pas la sbx)

Bonjour à vous deux.

Je n'ai pas lu les derniers posts. Donc risque de faire double emploi.
Je réponds au post #13.

Dans un TScrollBox, pour savoir si une scrollbar est effectivement visible, il ne faut pas interroger sa propriété Visible mais les propriétés Range et Page.
La scrollbar est visible si Range - Page > 0.

Code:

---

1 2 3

with scrollbox1.HorzScrollBar do if Range - Page > 0 then // barre visible Position:= (Range - Page) div 2; // positionnement au centre

---

EDIT : Oups, pas encore bien réveillé : if Range > Page

Amicalement
Thierry