évènement déplacement ScrollBar [Résolu]

Messages postés
152
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2016
- - Dernière réponse : zwyx
Messages postés
152
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2016
- 11 mars 2008 à 14:19
Bonjour à tous,

Existe-t-il un évènement qui réagit au déplacement d'un ascenceur (scrollbar) ?

Je travaille sous Delphi6. J'ai deux tableaux de type TStringGrid. Chaque colonne du premier contient des valeurs tandis que chaque colonne du second contient des résultats correspondants (min, max, moyenne, variance, ...).
Je voudrais donc que quand l'utilisateur déplace l'ascenceur d'un des teux tableaux vers la droite, pour regarder les colonnes suivantes, le deuxième tableau suive. Ainsi, les colonnes des deux tableaux seront toujours en correspondance verticale.

Merci et très bon week-end.
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
991
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
5
3
Merci
tu peux utiliser OnTopLeftChange de TStringGrid

procedure TForm1.StringGridTopLeftChange(Sender: TObject);
begin
    if sender = StringGrid1 then
    begin
       StringGrid2.TopRow  := StringGrid1.TopRow;
       StringGrid2.LeftCol := StringGrid1.LeftCol;
    end
    else //Sender = stringgrid2
    begin

       StringGrid1.TopRow  := StringGrid2.TopRow;


       StringGrid1.LeftCol := StringGrid2.LeftCol;

    end
end;

Sinon il existe tjrs les evenements
WM_VSCROLL & WM_HSCROLL

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 203 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Guillemouze
Messages postés
152
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2016
0
Merci
Merci beaucoup Guillemouze.
Je crois que tout est dit.
Commenter la réponse de zwyx