Discussion :

[OutOfRange]

Bonjour à tou(te)s
Voilà, la question est dans le titre:
Comment détecter que l'utilisateur fait défiler la listbox vers le haut ou le bas à l'aide de la scrollbar ?????????
Il n'y a aucun événement associé...
(delphi 6)

Merci (rien trouvé dans la FAQ)

[Sub0]

Salut!

En utilisant la propriété TopIndex.
Avec un timer par exemple, il faut sauver le TopIndex pour détecter le changement de sa valeur :

Code :

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

1
2
3
4
5
6
7
8
Var savetop: Integer;
 
{----------------------------------------------------------------}
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
  If (savetop <> ListBox1.TopIndex) Then Beep;
  savetop := ListBox1.TopIndex;
End;

Lien tout en bas à gauche de cette fenêtre

[OutOfRange]

OK merci

[LadyWasky]

Sinon, tu peux aussi utiliser un composant dérivé de TListBox :

Le voilà tout fait, il n'y a plus qu'a installer dans un nouveau paquet, il apparaitra dans l'onglet Exemples de la palette de composants.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
unit UnitListBoxScroll;
 
interface
 
uses
  SysUtils, Classes, Controls, StdCtrls,Messages;
 
type
  TListBoxScroll = class(TListBox)
  private
    FOnHScroll: TScrollEvent;
    FOnVScroll: TScrollEvent;
    { Déclarations privées }
    procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
    procedure SetOnHScroll(const Value: TScrollEvent);
    procedure SetOnVScroll(const Value: TScrollEvent);
  protected
    { Déclarations protégées }
  public
    { Déclarations publiques }
  published
    { Déclarations publiées }
    property OnVScroll:TScrollEvent read FOnVScroll write SetOnVScroll;
    property OnHScroll:TScrollEvent read FOnHScroll write SetOnHScroll;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Exemples', [TListBoxScroll]);
end;
 
{ TListBoxScroll }
 
procedure TListBoxScroll.SetOnHScroll(const Value: TScrollEvent);
begin
  FOnHScroll := Value;
end;
 
procedure TListBoxScroll.SetOnVScroll(const Value: TScrollEvent);
begin
  FOnVScroll := Value;
end;
 
procedure TListBoxScroll.WMHScroll(var Message: TWMHScroll);
var dummy:Integer;
begin
  dummy:=0;
  if Assigned(FOnHScroll) then FOnHScroll(Self, TScrollCode(message.ScrollCode), dummy);
  inherited;
end;
 
procedure TListBoxScroll.WMVScroll(var Message: TWMVScroll);
var dummy:Integer;
begin
  dummy:=0;
  if Assigned(FOnVScroll) then FOnVScroll(Self, TScrollCode(message.ScrollCode), dummy);
  inherited;
end;
 
end.

[OutOfRange]

OK merci Wascol
Je vais pouvoir tester ce composant...
Désolé d'avoir tardé à répondre