DbCtrlGrids : Cacher le(s) ScrollBar(s)
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:
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:
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)
