Faire disparaitre le scrollbar de plusieurs dbgrid

Version imprimable

Bonjour,

J'ai récupéré sur le net récemment ce code qui permet de faire disparaitre les scrollbars d'un dbgrid (verticale et horizontal).
Mon besoin étant de faire disparaitre juste l'horizontale.
J'utilise donc ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
  private
    { Private declarations }
...
    FDBGridWndProc: TWndMethod;
    procedure DBGridWndProc(var Msg: TMessage);
...
implementation
 
Uses
  ....;
 
{$R *.dfm}
...
 
procedure TFormPrincipal.DBGridWndProc(var Msg: TMessage);
begin
  ShowScrollBar(DBGridCategorie.handle, SB_HORZ, False);
  ShowScrollBar(DBGridCategorie.Handle, SB_VERT, True);
  FDBGridWndProc(Msg);
end;
...
 
procedure TFormPrincipal.FormCreate(Sender: TObject);
Begin
....
  {CACHE LES SCROLLBARS DU DBGRIDCategorie}
  FDBGridWndProc := DBGridCategorie.WindowProc;
  DBGridCategorie.WindowProc := DBGridWndProc;
...

Cela fonctionne parfaitement.
Mais j'ai besoin de faire la même chose sur un autre dbgrid placé également sur cette form.
J'ai tenté de doubler les procedures sans succès et avec plantage. donc j'ai essayé cela ci-dessous, mais je ne c'est pas quoi mettre à un moment.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
  private
    { Private declarations }
...
    FDBGridWndProc: TWndMethod;
    procedure DBGridMultipleWndProc(DBGrd: TDBGrid; var Msg: TMessage);
...
implementation

Uses
  ....;

{$R *.dfm}
...

procedure TFormPrincipal.DBGridMultipleWndProc(DBGrd: TDBGrid; var Msg: TMessage);
begin
  ShowScrollBar(DBGrd.handle, SB_HORZ, False);
  ShowScrollBar(DBGrd.handle, SB_VERT, True);
  FDBGridWndProc(Msg);
end;
...

procedure TFormPrincipal.FormCreate(Sender: TObject);
Begin
....
  {CACHE LES SCROLLBARS DU DBGRIDCategorie}
  FDBGridWndProc := DBGridCategorie.WindowProc;
  DBGridCategorie.WindowProc := DBGridMultipleWndProc( ??????); 
// que puis-je mettre ici ? j'ai essayé DBGridMultplieWndProc(DBGridCategorie); mais cela ne fonctionne pas ?
...

Avez-vous une idée ?

salut ;)

pourquoi pas simplement, sans autres fioritures

Code:

1
2
3
4
5
6
7
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowScrollBar(DBGrid1.Handle, SB_HORZ, False);
  ShowScrollBar(DBGrid2.Handle, SB_HORZ, False);
.....
end;

Salut Serge,

SI tu mets juste ce paramètre dans le Create de la form cela n'as aucun effet.

J'ai fais cela, mais j'ai un dernier souci :
Code:

1 2 3 4 5 6 procedure TFormPrincipal.FormCreate(Sender: TObject); Begin {CACHE LES SCROLLBARS DU DBGRIDCategorie} FDBGridWndProc := DBGridCategorie.WindowProc; DBGridCategorie.WindowProc := DBGridWndProc; end;
Code:

1 2 3 4 5 6 procedure TFormPrincipal.DBGridWndProc(var Msg: TMessage); begin ShowScrollBar(DBGridCategorie.Handle, SB_HORZ, False); ShowScrollBar(DBGridObjets.Handle, SB_HORZ, False); FDBGridWndProc(Msg); end;
Alors à l'ouverture de ma form la bar horizontal du Premier DBgrid disparait, mais celle du deuxième dbgrid non.
Par contre si je passe d'un Dbgrid à l'autre (les grids sont dans un tabsheet différent par exemple) et bien le 2ème dbgrid cette fois n'affiche plus la barre du bas.

Mais comment activé cela dés l'ouverture de mon projet ?

Je pense avoir trouvé en fait :

Dans ma form j'ai mis cela

Code:

1
2
3
4
5
procedure TFormPrincipal.FormCreate(Sender: TObject);
Begin
  FDBGridWndProc := TDBGrid(Sender).WindowProc;
  TDBGrid(Sender).WindowProc := DBGridWndProc;
end;

et la procedure

Code:

1
2
3
4
5
6
procedure TFormPrincipal.DBGridWndProc(var Msg: TMessage);
begin
  ShowScrollBar(DBGridCategorie.Handle, SB_HORZ, False);
  ShowScrollBar(DBGridObjets.Handle, SB_HORZ, False);
  FDBGridWndProc(Msg);
end;

Ca peut surement aider quelqu'un.

a+

06/12/2008, 12h57
Andnotor
Premièrement, Sender est la fiche et non le DBGrid ! Ton transtypage fonctionne parce que les deux dérivent de TControl (WindowProc est défini dans TControl). Mais attention à ce genre de transtypage sur de mauvais types.

Ensuite ce code fonctionnerait la même chose (Sender est la fiche, donc Self, donc référence inutile ;)):
Code:

1 2 3 4 5 procedure TFormPrincipal.FormCreate(Sender: TObject); Begin FDBGridWndProc := WindowProc; WindowProc := DBGridWndProc; end;
Enfin, cela ne fonctionne pas depuis le OnCreate, mais parfaitement depuis le OnShow:
Code:

1 2 3 4 5 procedure TForm1.FormShow(Sender: TObject); begin ShowScrollBar(DBGrid1.Handle, SB_HORZ, False); ShowScrollBar(DBGrid2.Handle, SB_HORZ, False); end;
07/12/2008, 10h50
SergioMaster

Citation:

Envoyé par BuzzLeclaire

SI tu mets juste ce paramètre dans le Create de la form cela n'as aucun effet.

Citation:

Envoyé par Andnotor

cela ne fonctionne pas depuis le OnCreate, mais parfaitement depuis le OnShow:

Bizarre , j'ai testé ça sur le OnCreate avec d3 et ça fonctionne nickel chrome