Discussion :

[le sportif]

Bonjour à tous ,
j'ai tapé le code suivant du scrollbar il fonctionne mais uniquement dans un seul sens càd je peux descendre vers le bas mais je ne peux pas le faire glisser vers le haut , je ne sais pas quel est le problème
merci beaucoup d'avance pour ceux qui puissent m'aider :

Code :

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

1
2
3
4
5
6
procedure TForm1.ScrollBarChange(Sender: TObject);
var
ScrollCode: TScrollCode;
begin
Panel.ScrollBy(0, -10);
end;

[Ph. B.]

Bonjour,

j'ai tapé le code suivant du scrollbar il fonctionne mais uniquement dans un seul sens càd je peux descendre vers le bas mais je ne peux pas le faire glisser vers le haut , je ne sais pas quel est le problème

Il n'y a pas de problème (hormis votre analyse ), le code prévoit de faire descendre le contenu du panel de 10 pixels quelque soit le changement de position du scrollbar !
Pour que cela fonctionne, il faut mémoriser la position antérieure, la soustraire à la position actuelle pour connaitre le sens de déplacement et son ampleur. La position actuelle devient ensuite la position antérieure, etc, etc.
En gros, cela donne :

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
23
24
25
26
27
28
29
  TForm1 = class(TForm)
    ScrollBar1: TScrollBar;
    Panel1: TPanel;
    // ...
    procedure FormCreate(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
  private
    { Déclarations privées }
    FOldPosition: Integer;
  public
    { Déclarations publiques }
  end;
 
//...
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldPosition := ScrollBar1.Position;
end;
 
procedure TForm1.ScrollBar1Change(Sender: TObject);
var
  DeltaY: Integer;
begin
  //  Panel1.ScrollBy(0, -10);
  DeltaY := ScrollBar1.Position - FOldPosition;
  FOldPosition := ScrollBar1.Position;
  Panel1.ScrollBy(0, DeltaY);
end;