Discussion :

[BuzzLeclaire]

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 :

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
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 :

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
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 ?

[SergioMaster]

salut

pourquoi pas simplement, sans autres fioritures

Code :

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

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;

[BuzzLeclaire]

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 :

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

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 :

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

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 ?

[SergioMaster]

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

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

[BuzzLeclaire]

Je pense avoir trouvé en fait :

Dans ma form j'ai mis cela

Code :

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

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

et la procedure

Code :

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

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+

[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 :

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

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 :

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

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