Discussion :

[LandGreen]

Bonjour à tous,

J'ai un problème avec un DBGrid dans mon application Delphi7. J'aimerais pouvoir faire défiler le contenu du DBGrid en utilisant la molette de la souris, mais actuellement, le défilement ne fonctionne que pour les lignes visibles. Une fois arrivé à la dernière ligne visible, le défilement s'arrête et je dois utiliser la barre de défilement verticale du DBGrid pour descendre davantage.

J'aimerais que le défilement continue à descendre même lorsque je suis arrivé à la dernière ligne visible, et que le DBGrid fasse défiler automatiquement son contenu en fonction de la position de la souris.

Avez-vous des idées ou des suggestions sur la manière de résoudre ce problème ? Merci d'avance pour votre aide !

[SergioMaster]

Même si je subodore la version Delphi utilisée, la première chose serait quand même d'indiquer de laquelle il s'agit pour d'autres lecteurs moins avertis.

[LandGreen]

Même si je subodore la version Delphi utilisée, la première chose serait quand même d'indiquer de laquelle il s'agit pour d'autres lecteurs moins avertis.

j'ai modifié en rajoutant la version du Delphi (Delphi7)

[Invité]

Mettez le code suivant dans un nouveau fichier nommé DBMouseWheel.pas

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
32
33
34
unit DBMouseWheel;
 
interface
uses
  Windows, Classes, DBGrids;
 
type
 
  TDBGrid = class(DBGrids.TDBGrid)
  protected
    function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
    function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
  end;
implementation
 
{ TDBGrid }
 
function TDBGrid.DoMouseWheelDown(Shift: TShiftState;
  MousePos: TPoint): Boolean;
begin
  Result := DataLink.Active;
  if Result then
    DataLink.DataSet.MoveBy(1);
end;
 
function TDBGrid.DoMouseWheelUp(Shift: TShiftState;
  MousePos: TPoint): Boolean;
begin
  Result := DataLink.Active;
  if Result then
    DataLink.DataSet.MoveBy(-1);
end;
 
end.

Dans votre projet placez le nom de cette unité juste après DBGrids , ça devrait fonctionner

Code :

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

 DBGrids, DBMouseWheel

[ShaiLeTroll]

N'est-ce pas une FAQ : Comment gérer la roulette de la souris sur un DBGrid ?

[Charly910]

Bonjour,
si la solution de Volid fonctionne bien, elle mériterait peut être d'être ajoutée à cette FAQ ?

A+
Charly

[LandGreen]

Bonjour,
si la solution de Volid fonctionne bien, elle mériterait peut être d'être ajoutée à cette FAQ ?

A+
Charly

c'est en cours de test j'ai pa seu le temps je vous tiendrai informés très prochainement