Masquer les scrollbars des DBGrid et utiliser des flèches personnalisées (Delphi 7)

Version imprimable

Voir 40 message(s) de cette discussion en une page

15/06/2025, 18h14
LandGreen

1 pièce(s) jointe(s)

Masquer les scrollbars des DBGrid et utiliser des flèches personnalisées (Delphi 7)

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.
16/06/2025, 07h36
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.
16/06/2025, 09h41
ShaiLeTroll

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

:faq:
16/06/2025, 10h09
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 ?
16/06/2025, 11h10
ShaiLeTroll

SendMessage WM_HScroll ou manuellement DataSet Next, Prior ...

Etudie le code tu TDBNavigator

Code:

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;

Citation:

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:

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:

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

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<div class="bbcode_container">
	<div class="bbcode_description">Citation:</div>
	<div class="bbcode_quote printable">
		<hr />
 
			procedure HideScrollBars(Grid: TDBCtrlGrid);
begin
  ShowScrollBar(Grid.Handle, SB_VERT, False);
  ShowScrollBar(Grid.Handle, SB_HORZ, False);
end;
 
		<hr />
	</div>
</div>

Je vous remercie pour le code il fonctionne, mais une fois on fait n'importe quelle manip. le scrollbar revient

Citation:

Envoyé par XeGregory

Voici un bref exemple :

Code:

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:

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

21/06/2025, 11h25
SergioMaster

Citation:

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

Il suffit de supprimer le préfixe Vcl.
21/06/2025, 11h27
LandGreen

Citation:

Envoyé par SergioMaster

Il suffit de supprimer le préfixe Vcl.

[Error] DBGridHack.pas(19): Undeclared identifier: 'ssNone'
21/06/2025, 13h33
der§en

C’est moi, ou tu ne fais pas beaucoup d’efforts : TScrollStyle ?
21/06/2025, 17h13
XeGregory

Pour ma part, je vais prendre un double cheese sans Scrollbar et sans préfixe Vcl. :ptdr:

J'avais oublié que tu étais sous Delphi 7.
22/06/2025, 11h10
LandGreen

Citation:

Envoyé par der§en

C’est moi, ou tu ne fais pas beaucoup d’efforts : TScrollStyle ?

Honnêtement, c’est la première fois que je te vois intervenir dans mes questions, et ta réponse ne m’aide en rien.
Plutôt que de critiquer sans explication, un minimum de guidance aurait été plus constructif.
Si ton but c’est juste de pointer du doigt, je préfère m’adresser à ceux qui prennent le temps d’aider vraiment.
22/06/2025, 15h05
tourlourou

Bonjour,

Placer le curseur sur la propriété aurait sûrement permis d'en connaître le type, à défaut cliquer et accéder à sa définition et remonter au type.

De là, remonter à la déclaration de l'énumération en question et à l'équivalent du ssNone proposé.

Je m'en sers tellement souvent que je comprends la remarque de der§en
22/06/2025, 15h33
der§en

Citation:

Envoyé par LandGreen

Honnêtement, c’est la première fois que je te vois intervenir dans mes questions, et ta réponse ne m’aide en rien.
Plutôt que de critiquer sans explication, un minimum de guidance aurait été plus constructif.
Si ton but c’est juste de pointer du doigt, je préfère m’adresser à ceux qui prennent le temps d’aider vraiment.

Ha oui, et tu as regardé la définition de TScrollStyle au moins ?
22/06/2025, 21h45
LandGreen

1 pièce(s) jointe(s)

je crois que c'est impossible avec Delphi7
22/06/2025, 23h01
Invité

lancer le help et taper ssNone il va indiquer le nom de l'unité ou il est déclaré donc ajouter cette unité dans les uses
22/06/2025, 23h10
LandGreen

2 pièce(s) jointe(s)

Sincèrement, je ne trouve pas le helper.
Quand j’appuie sur F1, je suis redirigé vers cette page web :
https://support.microsoft.com/fr-fr/...7-1a149da3973b

J’ai aussi essayé Ctrl + cliquer sur ssNone, mais rien ne se passe.

Est-ce que quelqu’un pourrait m’aider avec une vidéo explicative s’il vous plaît ?
22/06/2025, 23h15
LandGreen

1 pièce(s) jointe(s)

il y a tout sauf sSnon

Voir 40 message(s) de cette discussion en une page