évènement déplacement ScrollBarRésolu

Question

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.

Guillemouze · Accepted Answer

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

zwyx · Answer

Merci beaucoup Guillemouze.
Je crois que tout est dit.

évènement déplacement ScrollBar

2 réponses

Votre réponse