ScrollBox

Version imprimable

23/03/2002, 13h50
Anonymous

ScrollBox

:) J'ai deux questions a vous poser.

1 - Quel est le code qui me permettrait de faire defiler une scrollbox grace aux fleches de directions du clavier :?:

2 - Quel est le code qui me permettrait de faire que l'ordinateur face automatiquement defiler la scrollbox pour qu'un objet reste tout le temps au milieu :?:

Merci d'avance .... :wink: :wink:

Salem Frederic,

Première piste que j'ai touvée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.HautClick(Sender: TObject);
begin
 SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEUP, 0) ;
end;
 
procedure TForm1.BasClick(Sender: TObject);
begin
 SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEDOWN, 0) ;
end;
 
procedure TForm1.DroiteClick(Sender: TObject);
begin
 SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINERIGHT, 0) ;
end;
 
procedure TForm1.GaucheClick(Sender: TObject);
begin
 SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINELEFT, 0) ;
end;

Reste à trouver comment intercepter les touches du clavier par le ScrollBox.

23/03/2002, 15h11
Sylvain James

tu peux t'appuyer sur ScrollBox.VertScrollBar.ScrollPos pour avoir la position verticale,
et ensuite appeller la méthode ScrollBox.ScrollBy(x,y);
Si tu veux aller au milieu, alors il faut connaître la hauteur totale de tous les éléments enfants du scrollbox.

Sylvain
03/12/2005, 09h17
filouxera

Scroll d'un ScrollBox -> Scroll d'un stringgrid

Bonjour,

Pour ma part j'ai essayé les 2 et a chaque fois j'ai un problème.

En fait j'essai de faire suivre le scrolling d'un stringgrid avecles ascenceur d'un scrollbox.

En gros lorsque je fait défiler verticalement mon scrollbox avec son ascenceur vertical je souhaite que le stringgrid défile de la même manière et dans les mêmes proportions.

Avec Scrollby cela marche, mais j'ai 2 problèmes :
1- En cas de saut de page j'ai un bug d'affichage des lignes.
2- En cas de scroll par les flêches ça fonctionne, mais dès que je clic dans le stringGrid, celui-ci m'affiche la ligne de la position initiale.

Avec le sendmessage c'est encore plus simple, rien ne marche.

Avez vous une idée ?

Vite, je craque!!!!!!!!!!!!!....................;

merci

filouxear