Discussion :

[vanquish]

Bonjour,

J'ai un TRichEdit avec la propriété ScrollBars = ssVertical

Quand il y a peu de lignes, ce scroll est invisible et il s'autoactive dès que le nb de lignes dépasse la hauteur du control. Tout est normal jusque là.

Mon pb est justement de savoir si le scroll est, à un moment précis, visible ou pas (ou si le nb de ligne dépasse la hauteur d'affichage - cela reviens au même - une des deux infos me suffit).

En effet, ce control est l'enfant d'un contôle personnalisé qui lui aussi à un scroll. Mon pb concerne la gestion de la molette : si le rtf n'a pas de scroll, la molette fait bouger le scroll du parent, mais si le scroll du rtf est visible, alors mon parent ne doit plus intercepter les evenement scroll.

J'ai essayé, comme le dit la doc de mettre la variable handle à false dans le OnMouseWheel event du rtf, pour qu'il ne gère jamais la roulette (ce qui à la limite me suffirais) mais le résultat n'a pas été probant : les 2 scrolls interceptent l'événement.

A l'aide !!!

Salutations
Vanquish

[Seb]

Salut,

Ce code là marche bien :

Code :

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

1
2
3
4
5
if (GetWindowlong(RichEdit1.Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then 
  ShowMessage('Le scrollbar vertical est visible'); 
 
if (GetWindowlong(RichEdit1.Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then 
  ShowMessage('Le scrollbar horizontal est visible');

A+,

Seb.

[vanquish]

Exactement ce qu'il me fallait.
Ca marche super !!

Merci beacoup