Discussion :

[chekkal]

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 :

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

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

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

[guillemouze]

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 :

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

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

[chekkal]

Bonjour gillemouze,

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

[guillemouze]

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 :

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

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;

[chekkal]

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

Code :

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

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;