Bonjour ,

Tout est dans le titre : Comment cacher les Scrollbars ? (petite précision en D7 max)
j'ai essayé plusieurs solutions de la plus simple

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
procedure TForm1.DBCtrlGridPaintPanel(DBCtrlGrid: TDBCtrlGrid;
  Index: Integer);
begin
ShowScrollBar(DBCtrlGrid.Handle, SB_BOTH, False);
end;
à certaines plus complexes , en dérivant la classe pour pouvoir l'appliquer a plusieurs TDBCtrlGrids de la form

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
 
type
  TDBCtrlGrid = class(DBcGrids.TDBCtrlGrid)
  private
//    procedure UpdateScrollBar; override;   // malheureusement en D7 cette procedure n'est pas virtuelle
 
    procedure WMWindowPosChanged(var Message: TWMWindowPosChanged);
      message WM_WINDOWPOSCHANGED;
  end;
....
procedure TDBCtrlGrid.WMWindowPosChanged(var Message: TWMWindowPosChanged);
begin
  inherited;
  Windows.ShowScrollBar(Handle, SB_BOTH, False);
end;
rien n'y fait , j'ai toujours un petit , mais gênant scintillement (le scroll apparait pour disparaitre aussitôt)