Discussion :

[SergioMaster]

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)

[ShaiLeTroll]

J'ai fait comme toi mais pour une DBGrid, son scroll vertical revenait tout le temps, en fait, j'ai triché en mettant par dessus ma propre TScrollBar pour gérer une DBGrid paginé (pour afficher le résultat d'un SELECT de plusieurs centaines de millier de ligne, obtenu page par page, tout ça parce que le client habitué à DBase+TTable voulait pareil en MySQL+TQuery)

je crois avoir même mis un Timer