IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

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


Sujet :

Delphi

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Février 2018
    Messages
    452
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2018
    Messages : 452
    Points : 35
    Points
    35
    Par défaut 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 !

  2. #2
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 097
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 097
    Points : 41 087
    Points
    41 087
    Billets dans le blog
    62
    Par défaut
    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.
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Février 2018
    Messages
    452
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2018
    Messages : 452
    Points : 35
    Points
    35
    Par défaut
    Citation Envoyé par SergioMaster Voir le message
    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)

  4. #4
    Membre actif
    Homme Profil pro
    libre
    Inscrit en
    Mai 2024
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations professionnelles :
    Activité : libre

    Informations forums :
    Inscription : Mai 2024
    Messages : 117
    Points : 212
    Points
    212
    Par défaut
    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


  5. #5
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 560
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 560
    Points : 25 156
    Points
    25 156
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  6. #6
    Membre expert
    Avatar de Charly910
    Homme Profil pro
    Ingénieur TP
    Inscrit en
    Décembre 2006
    Messages
    2 370
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur TP
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Décembre 2006
    Messages : 2 370
    Points : 3 144
    Points
    3 144
    Par défaut
    Bonjour,
    si la solution de Volid fonctionne bien, elle mériterait peut être d'être ajoutée à cette FAQ ?

    A+
    Charly

  7. #7
    Nouveau membre du Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Février 2018
    Messages
    452
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2018
    Messages : 452
    Points : 35
    Points
    35
    Par défaut
    Citation Envoyé par Charly910 Voir le message
    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

Discussions similaires

  1. [Prototype] Scroll avec la molette de la souris dans un div
    Par epeichette dans le forum Bibliothèques & Frameworks
    Réponses: 3
    Dernier message: 02/07/2009, 14h43
  2. Problème avec la molette de la souris
    Par Spaeda dans le forum Windows Forms
    Réponses: 2
    Dernier message: 27/05/2008, 14h27
  3. Réponses: 2
    Dernier message: 12/09/2007, 20h52
  4. Réponses: 2
    Dernier message: 29/11/2005, 13h38
  5. Réponses: 5
    Dernier message: 14/10/2005, 20h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo