Discussion :

[papy_tergnier]

bonjour,

j'ai lu dans le forum delphi que la molette n'était pas gérée par défaut dans un DBGrid. Et j'ai trouvé un code pour la gérer mais malheureusement c'est en delphi http://delphi.developpez.com/faq/?pa...dbgridroulette et je n'ai aucune connaissance du delphi . J'ai donc 2 questions :
la première : que veulent-ils dire par non gestion de la molette car mon problème n'est pas que la molette ne fonctionne pas mais plutot qu'arrivée à la fin du DBGrid elle ne passe pas aux enregistrement suivants alors qu'il y en a. Si j'utilise la ScrollBar ou la touche directionnelle du bas cela fonctionne.

la seconde : quelqu'un aurait-il le code de la FAQ en C++ ?

Merci

PS : je n'utilise pas le composant DBGrid classique mais un TsuiDBGrid étant un composant suiPack qui théroriquement dérive de DBGrid

[bakaneko]

voici la traduction du code de la FAQ Delphi:
dans le point H:

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
 
class TForm1 : public TForm
{
__published:	// Composants gérés par l'EDI
        TADOConnection *ADOConnection1;
        TADOQuery *ADOQuery1;
        TDBGrid *DBGrid1;
        TDataSource *DataSource1;
        void __fastcall FormCreate(TObject *Sender);
private:	// Déclarations de l'utilisateur
        TWndMethod OldWindowProc;//ligne ajoutée
        void __fastcall DBGridNewWindowProc(TMessage &Msg);//ligne ajoutée
public:		// Déclarations de l'utilisateur
        __fastcall TForm1(TComponent* Owner);
};

dans le cpp

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
 
void __fastcall TForm1::DBGridNewWindowProc(TMessage &Msg)
{
 if (Msg.Msg == WM_MOUSEWHEEL)
 {
  if (DBGrid1->DataSource->DataSet->Active)
  {
   if (short(Msg.WParamHi) < 0)
        DBGrid1->DataSource->DataSet->Next();
   else
        DBGrid1->DataSource->DataSet->Prior();
  }
  return;
 }
 
 OldWindowProc(Msg);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 OldWindowProc = DBGrid1->WindowProc;
 DBGrid1->WindowProc = DBGridNewWindowProc;
}
//---------------------------------------------------------------------------

Maintenant à toi d'adapter pour tes composants si nécessaires.

[papy_tergnier]

merci bien !!!!!
c cool