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