Discussion :

[LandGreen]

Bonjour,
Sur Delphi 7, je souhaite masquer les barres de défilement (verticale et horizontale) de deux composants DBCtrlGrid1 et DBCtrlGrid2, et les remplacer par des icônes personnalisées (flèches haut/bas et gauche/droite).
L’objectif est d’apporter une touche d’innovation à l’interface utilisateur (UI) en modernisant l’apparence de la navigation dans les grilles.

[SergioMaster]

Bonjour,

je ne vais que vous donner la piste, pas la solution.

Un TDBGrid est une classe dérivée de TCustomGrid. TCustomGrid a la propriété protégée ScrollBars par défaut à ssBoth.
Votre objectif est donc de mettre cette valeur à ssNone.

Il vous faut donc "hacker", la classe TDBGrid pour quelle soit traitée comme une TCustomGrid pour accéder à cette propriété protégée.

[ShaiLeTroll]

C'est juste la question exacte de la FAQ : Comment masquer l'ascenseur vertical/horizontal dans un DBGrid ?

[LandGreen]

Merci à ShaiLeTroll et SergioMaster pour vos réponses.
Vous avez bien répondu concernant le masquage de la scrollbar. Cependant, comment pourrais-je remplacer ce fonctionnement par des icônes, s’il vous plaît ?

[ShaiLeTroll]

SendMessage WM_HScroll ou manuellement DataSet Next, Prior ...

Etudie le code tu TDBNavigator

[XeGregory]

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
procedure HideScrollBars(Grid: TDBCtrlGrid);
begin
  ShowScrollBar(Grid.Handle, SB_VERT, False);
  ShowScrollBar(Grid.Handle, SB_HORZ, False);
end;
 
 
procedure TForm1.FormShow(Sender: TObject);
begin
  HideScrollBars(DBCtrlGrid1);
  HideScrollBars(DBCtrlGrid2);
end;
 
procedure TForm1.btnUpClick(Sender: TObject);
begin
  DBCtrlGrid1.Scroll(-1); // vers le haut
end;
 
procedure TForm1.btnDownClick(Sender: TObject);
begin
  DBCtrlGrid1.Scroll(1); // vers le bas
end;

[XeGregory]

Un TDBGrid est une classe dérivée de TCustomGrid. TCustomGrid a la propriété protégée ScrollBars par défaut à ssBoth.
Votre objectif est donc de mettre cette valeur à ssNone.

Il vous faut donc "hacker", la classe TDBGrid pour quelle soit traitée comme une TCustomGrid pour accéder à cette propriété protégée.

Voici un bref exemple :

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 DBGridHack;
 
interface
uses
  Vcl.Grids, Vcl.DBGrids;
 
procedure DisableGridScrollBars(Grid: TDBGrid);
 
implementation
 
type
  // Classe factice, hérite de TCustomGrid
  TCustomGridCracker = class(TCustomGrid) 
end;
 
procedure DisableGridScrollBars(Grid: TDBGrid);
begin
  // On caste le TDBGrid en TCustomGridCracker pour accéder à ScrollBars
  TCustomGridCracker(Grid).ScrollBars := ssNone;
end;
 
end.

Code :

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

1
2
3
4
5
6
7
uses
  DBGridHack;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DisableGridScrollBars(DBGrid1);
end;

[LandGreen]

Voici un bref exemple :

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 DBGridHack;
 
interface
uses
  Vcl.Grids, Vcl.DBGrids;
 
procedure DisableGridScrollBars(Grid: TDBGrid);
 
implementation
 
type
  // Classe factice, hérite de TCustomGrid
  TCustomGridCracker = class(TCustomGrid) 
end;
 
procedure DisableGridScrollBars(Grid: TDBGrid);
begin
  // On caste le TDBGrid en TCustomGridCracker pour accéder à ScrollBars
  TCustomGridCracker(Grid).ScrollBars := ssNone;
end;
 
end.

Code :

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

1
2
3
4
5
6
7
uses
  DBGridHack;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DisableGridScrollBars(DBGrid1);
end;

[Fatal Error] DBGridHack.pas(5): File not found: 'Vcl.Grids.dcu'
pour rappel je suis sur delphi7

[SergioMaster]

File not found: 'Vcl.Grids.dcu'
pour rappel je suis sur delphi7

Il suffit de supprimer le préfixe Vcl.

[LandGreen]

Il suffit de supprimer le préfixe Vcl.

[Error] DBGridHack.pas(19): Undeclared identifier: 'ssNone'