Discussion :

[Anonymous]

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 ....

[Fares BELHAOUAS]

Salem Frederic,

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

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
 
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.

[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

[filouxera]

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