[Turbo Delphi Explorer] Dériver un TDBGrid

Version imprimable

23/11/2006, 08h49
Pierre Maurette

[Turbo Delphi Explorer] Dériver un TDBGrid

Bonjour,
Je souhaite utiliser un TDBGrid sans scrollbar verticale. Je tourne en rond autour du lien http://bdn.borland.com/article/15874
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 mal non plus.
- je voudrais utiliser le concepteur de fiche, mais la suppression de la scrollbar peut intervenir à la construction ou au runtime.
- je veux bien ajouter un bout de code dans chaque unité où le problème se pose, voire éditer le .dfm ou tout autre fichier.

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

Bonne journée,

Pierre

Salut,

J'ai trouvé ceci on ze Web :mrgreen:

Tu créés un descendant de TDBgrid en runtime qui intercepte le message WM_NCCALCSIZE et le tour est joué.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
type
  TNoScrollDBGrid = class(TDBGrid)
  private
    procedure WMNCCalcSize(var Msg: TMessage);
      message WM_NCCALCSIZE;
  end;
 
procedure TNoScrollDBGrid.WMNCCalcSize(var Msg: TMessage);
const
  Scrollstyles = WS_VSCROLL {or WS_HSCROLL};
var
  Style: Integer;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);
  if (Style and Scrollstyles) <> 0 then
    SetWindowLong(Handle, GWL_STYLE, Style and not Scrollstyles);
  inherited;
end;

@+ Claudius

23/11/2006, 11h31
Pierre Maurette

Merci à Claudius40. Qui n'a visiblement pas lu la question et me renvoie du code dont j'avais donné le lien.
23/11/2006, 11h36
Cl@udius

Citation:

Envoyé par Pierre Maurette

Merci à Claudius40. Qui n'a visiblement pas lu la question et me renvoie du code dont j'avais donné le lien.

Ooops ! :aie: Tout à l'heure je n'arrivais pas à accéder au BDN. Navré de ce impair.

Mais ce code ne réponds pas à ta demande ? Aurais-je mal compris ?:oops:
23/11/2006, 11h44
Pierre Maurette

Citation:

Envoyé par Claudius40

Mais ce code ne réponds pas à ta demande ? Aurais-je mal compris ?:oops:

Si j'ai bien compris, ce qui n'est pas prouvé: c'est le code d'un composant. Je ne peux créer ni ajouter à la palette aucun nouveau composant avec les versions Explorer. De plus, je souhaite garder la notion de composant pour la conception (j'utilise des champs persistants). Donc, peut-être utiliser un TDBGrid normal et le modifier (juste pour la scrollbar) au runtime ou à la compilation ? Mais je ne sais pas le faire.

Re,

Je vais essayé de me rattraper ;)

Ce code supprime le scrollbar vertical au runtime.

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
35
 
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    [...]
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    FOldWindowProc: TWndMethod;
    procedure DBGridWindowProc(var Message: TMessage);
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldWindowProc := DBGrid1.WindowProc;
  DBGrid1.WindowProc := DBGridWindowProc;
end;
 
procedure TForm1.DBGridWindowProc(var Message: TMessage);
begin
  if Message.Msg = WM_PAINT then
    ShowScrollBar(DBGrid1.Handle, SB_VERT, False);
  FOldWindowProc(Message);
end;
 
end.

@+ Claudius

Voilà, je vous remercie, ça fonctionne sans problème. Et la méthode permet de faire d'autres choses.
Pour info, je suis sous Turbo C++. Mais j'ai aussi une boîte Windows 2000 sur laquelle est installé Turbo Delphi (je n'ai pas essayé de passer outre l'impossibilité d'installer deux Explorer sur la même machine). Et je poste en forum Delphi car le forum C++ Builder est assez léthargique sur les questions d'EDI et de VCL.
Voici à toutes fins utiles mon code C++:
Code:

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); } //---------------------------------------------------------------------------
Merci encore

Pierre

23/11/2006, 13h01
denokan

Citation:

Envoyé par Pierre Maurette

... (je n'ai pas essayé de passer outre l'impossibilité d'installer deux Explorer sur la même machine). ...

Petit rappel : ce blog permet d'installer plusieurs Turbo. Je n'ai pas testé personnellement mais il semblerait que ça fonctionne.