Problème avec la disparition de l'ascenseur à droite d'un dbGrid

**pierrot67** · 30/10/2007, 06h16

bonjour

J'ai un dbgrid où mon ascenseur à droite à disparu pourtant j'ai assez d'enregistrements pour qu'il apparaisse pourriez-vous m'aider?

Merci d'avance.

**zemeilleurofgreg** · 13/01/2009, 12h06

la propriété scrollbar est elle en automatique ?

**cincap** · 13/01/2009, 13h05

@ Pierrot67, comme le dit si bien zemeilleurofgreg, vérifie si dans le cas d'un TStringGrid car je n'ai pas le composant DbGrid :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
StringGrid1.ScrollBars := Ssboth

@+,

Cincap

**cincap** · 13/01/2009, 13h38

@ Pierrot67 tu peux essayer ceci :

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
 
private
    { Private declarations }
...
    FDBGridWndProc: TWndMethod;
    procedure DBGridWndProc(var Msg: TMessage);
...
implementation
 
.......
procedure TForm1.FormCreate(Sender: TObject);
begin
  FDBGridWndProc := WindowProc;
  WindowProc     := DBGridWndProc;
 
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  ShowScrollBar(DBGrid1.Handle, SB_HORZ, True); // Affiche le scrollbars horizontal
  ShowScrollBar(DBGrid1.Handle, SB_HORZ, False); // Cache le scrollbars horizontal
end;