Discussion :

[peter27x]

Hello,

ayant utilisé un objet TScrollBar, je pouvais manipuler les paramètres de la scrollBar.

Mais avec un contrôle graphique comme par exemple un DbGrid, comment accéder à ces sacro-saintes informations afin de lui inoculer le comportement désiré ?

Merci.

[anapurna]

salut

ce n'est pas bien précis comme question que veut tu faire exactement.
en premier lieu recherche sur le forum je me souvient avoir déjà répondu plus d'un fois sur différente question concernant le scroll

@+ Phil

[peter27x]

salut

ce n'est pas bien précis comme question que veut tu faire exactement.
en premier lieu recherche sur le forum je me souvient avoir déjà répondu plus d'un fois sur différente question concernant le scroll

@+ Phil

Déjà cherché y'a pas ce que je cherche.

Avec un TScrollBar qu'on colle dans une frame, on peut ensuite accéder à ces propriétés propre à TScrollBar:

Code :

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

1
2
3
4
5
6
7
8
 
	Kind
	LargeChange
	Max
	Min
	Position
	SmallChange
	Track

Mais depuis un objet type DBGrid, comment y accéder ?

C'est ça ma question.

Sinon ben c'est afin de pouvoir faire ce que l'on veut avec.

[anapurna]

salut

le seul moyen pour accéder a ces éléments cet à partir des message windows
ce n'est pas un sous composant TScollbar

pour le positionnement tu as lefcol et toprow qui te permette de déplacer la grille

le reste il faut utiliser les message pour obtenir le même résultat
voir
SetScrollRange
SetScrollInfo
SetScrollPos

par exemple j'ai un peu cacher le scrolbar verticale

Code :

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

1
2
 
  SetScrollRange(mydbgrid.Handle, SB_VERT, 0, 0, False);

pour récupérer les infos, tu peut utiliser GetScrollInfo

Code :

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

1
2
3
4
5
6
 
 SI: TScrollInfo;
...
   SI.cbSize := sizeof(SI);
   SI.fMask := SIF_ALL;
   GetScrollInfo(mydbgrid.Handle, SB_VERT, SI);

a toi de jouer

@+ Phil

[cincap]

@ Peter27x, l'Expert anapurna a raison, voici un exemple pour un scroll.

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
  OldGridProc: TWndMethod;
  procedure GridWindowProc(var Message: TMessage);
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  OldGridProc        := DBGrid1.WindowProc;
  DBGrid1.WindowProc := GridWindowProc;
end;
 
procedure TForm1.GridWindowProc(var Message: TMessage);
var
  Pos: SmallInt;
begin
  OldGridProc(Message);
  if Message.Msg = WM_VSCROLL then  //or WM_HSCROLL
  begin
    Pos          := Message.WParamHi;  //Scrollbox position
    Table1.RecNo := Pos;
  end;
end;

@+,

Cincap

[peter27x]

OK, merci les gars.

C'est ma collègue qui va être contente...