Discussion :

[Pierre Maurette]

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

[Cl@udius]

Salut,

J'ai trouvé ceci on ze Web

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

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
 
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

[Pierre Maurette]

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

[Cl@udius]

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

Ooops ! 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 ?

[Pierre Maurette]

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

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.

[Cl@udius]

Re,

Je vais essayé de me rattraper

Ce code supprime le scrollbar vertical au runtime.

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
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