Problème de défilement avec la molette de la souris dans un DBGrid DELPHi7

**LandGreen** · 15/05/2024, 00h16

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** · 15/05/2024, 09h19

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** · 15/05/2024, 10h48

Envoyé par 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.

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

Invité · 15/05/2024, 12h41

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.