Discussion :

[kase74]

Bonjour,
J'aimerais que les scrolls bar ne soit plus visible dans une DBGrid.
Ca se fait sans pb avec une StringGrid.

Merci d'avance.

[Giovanny Temgoua]

Essaye un peu ce code :

Code :

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

ShowScrollBar(DBGrid1.Handle, SB_BOTH, False);

A+

[Edit]
Cela peut toujour servir :
//Enlève la barre horizontale

Code :

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

ShowScrollBar(DBGrid1.Handle, SB_HORZ, False);

//Enlève la barre verticale

Code :

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

ShowScrollBar(DBGrid1.Handle, SB_VERT, False);

[/Edit]

[kase74]

Merci King Kaiser pour la rapidite de ta reponse.

Je n'ai pas de SHOWSCROLLBAR, l'aide en ligne ne connait pas.

Peut etre parceque je suis sous Delphi 6 entreprise ?

[Giovanny Temgoua]

Est ce que tu as ajouté l'unité Windows dans tes uses ?

Code :

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

uses Windows, ...

[kase74]

Ok il connait showscrollbar, mais il n'accepte pas DBGRID.HANDLE parceque c'est un QWidgetH et qu'il attend un HWND

De plus, mon appli est en CLX puisque c'est pour du multi-plateforme.

Merci encore de ton aide.

[Giovanny Temgoua]

J'ai essayé de chercher, mais apparemment il n'y a pas d'unité toute faite qui permette d'enlever les scrollbars (du moins je n'ai pas trouvé).

Alors j'ai essayé un code, qui je précise ne marche pas(pour une raison que je maîtrise pas bien ) :

Code :

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

TDrawGrid(DBGrid1).ScrollBars := ssNone;

J'ai mis ce code dans l'évènement OnClick d'un boutton que j'ai déposé sur la fiche; la barre horizontale s'en vas mais la barre verticale tient bon

Par contre, je me dis qu'il serait possible de le faire en surchargeant la méthode Paint du DBGrid; dans le code, il serait question alors de mettre les valeurs min et max de défilement à 0 (ce qui en théorie aurait pour effet d'enlever la barre de défilement).
Pour spécifier ces valeurs, il te faudra alors utiliser SetScrollRange.

A+

[Edit]
Je trouve à l'instant un code qui en parle, il vient de la "maison"
http://bdn.borland.com/article/0,1410,15874,00.html
Pour adapter, il te faudra alors utiliser SetScrollRange aussi bien lorsque tu reçois le message de défilement vertical (SB_VERT) que le message de défilement horizontal (SB_HORZ).
Je te laisse le soin de tester
[/Edit]

[kase74]

Mille merci pour l'info, j'essaie le code des que j'ai le temps.