comment enlever définitivement les scrollbar

Bonjour à tous,

je suis confronter à un problème persistant. En effet, j'arrive pas à enlever les scrollbar d'un "dbgrid", le "dbgrid" à une "height=20" qui applique une seule ligne à la fois. J'ai bien utilisé le

Code:

---

1 2	showscrollbar(dbgrid.handle,SB_BOTH,false)

---

ça marche sur le coup mais les scrollbar reviennent après.

Effectivement la propriété ScrollBars n'est pas publiée pour la DBGrid, alrs qu'elle l'est pour TStringGrid par exemple.
Tu peux feinter en redéclarant la classe dans ton unité

Code:

---

1 2 3 4 5

class DBGrid = class(DBGrids.DBGrid) published property ScrollBars; //juste un changement de visibilité end;

---

et avoir accès à la propriété dans la suite de ton code

Bonjour gillemouze,

si vous pouvez me donné un exple ça serait mieux,je ne sais pas ou doit-je ajouter ce code:oops:

En fait, c'est une astuce qui te permet d'avoir accès aux méthodes protected, et la je republie même la property.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

unit FormAvecDBGrid; interface   uses DBGrids;   type class TDBGrid = class(DBGrids.TDBGrid) published property ScrollBars; end;   TForm1 = class(TForm) DBGriD1: TDBGrid; ... end;   implementation   procedure TForm1.FormCreate(Sender: TObject); begin DBGrid1.ScrollBars := ssNone; end;

---

bonjour,
j'ai fait quelques changement à ton code et ça marche :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

unit FormAvecDBGrid; interface   uses DBGrids,stdctrls;   type TDBGrid = class(DBGrids.TDBGrid) published property ScrollBars; end;   TForm1 = class(TForm) DBGriD1: TDBGrid; ... end;   implementation   procedure TForm1.FormCreate(Sender: TObject); begin DBGrid1.ScrollBars := ssNone; end;

---