Bonjour à tous

Ce doit être tout bête, mais je plante !

Je voudrais tester si, dans un DBGrid, la barre verticale est visible ou pas. J'ai donc écrit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
if DBGrid1.ScrollBars.ssVertical then 
ShowMessage('Vertical');
Passe pas ! J'ai essayé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
if DBGrid1.ScrollBars = ssVertical then 
ShowMessage('Vertical');
Pas mieux ! Puis j'ai essayé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
if DBGrid1.ScrollBars = [ssVertical] then 
ShowMessage('Vertical');
toujours rien.

Y a-t-il une solution ?

Merci d'avance