Discussion :

[Pierre Maurette]

Bonjour,
Je souhaite utiliser un TDBGrid sans scrollbar verticale. Je tourne en rond autour du lien http://bdn.borland.com/article/17795
Pas moyen de parvenir à quoi que ce soit, peut-être à cause de mon incompétence dans le domaine, sans doute à cause de la limitation de la version Explorer quant à l'ajout de composants.
Comment puis-je procéder, sachant que:
- je n'ai pas vraiment besoin d'un vrai nouveau composant, mais ce ne serait pas plus mal non plus.
- je voudrais utiliser le concepteur de fiche, mais la suppression de la scrollbar peut intervenir à la constructin ou au runtime.
- je veux bien ajouter un bout de code dans chaque unité où le problème se pose, voire éditer le .dfm.

Voilà, je vous remercie pour toute suggestion, et n'hésitez pas à m'expliquer comme à un neuneu ;-)

Bonne journée,

Pierre

[Pierre Maurette]

J'avais posté également sur le forum Delphi, où il y a plus de trafic sur les sujets communs (EDI, VCL...). Voici le code C++ qui fait ce que je veux:

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
//Dans le .h 
private: 
    TWndMethod FOldWindowProc;
    void __fastcall DBGridWindowProc(TMessage& Message);   
 
//Dans le .cpp
//---------------------------------------------------------------------------
void __fastcall TOriginesForm::FormCreate(TObject *Sender)
{
    FOldWindowProc = DBGridOrigin->WindowProc;
    DBGridOrigin->WindowProc = DBGridWindowProc;
}
//---------------------------------------------------------------------------
void __fastcall TOriginesForm::DBGridWindowProc(TMessage& Message)
{
    ShowScrollBar(DBGridOrigin->Handle, SB_VERT, false);
    FOldWindowProc(Message);
}
//---------------------------------------------------------------------------

Bonne journée,

Pierre