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

Version imprimable

14/05/2024, 23h16
LandGreen

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

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 !
15/05/2024, 08h19
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.
15/05/2024, 09h48
LandGreen

Citation:

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)

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

Code:

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:

DBGrids, DBMouseWheel

15/05/2024, 11h59
ShaiLeTroll

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

:faq:
19/05/2024, 09h48
Charly910

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

A+
Charly
20/05/2024, 16h42
LandGreen

Citation:

Envoyé par Charly910

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