Discussion :

[Thierry65]

Bonjour,

J'utilise un TFrame dans lequel j'affiche plus de composants qu'il ne peut en afficher en hauteur, j'ai donc un ascenceur vertical.

Je souhaite conserver en permanence différents contrôles en haut de la zone visible de mon cadre (comme des en-têtes de colonne). Pour cela, je cherche à détecter le scrolling vertical pour redessiner mes composants au bon endroit du cadre.

Une autre solution est de mettre mes composants d'en-tête hors du cadre, mais à ce moment-là, il faut que je synchronise l'affichage lors d'un scroll horizontal, et je suis confronté au même problème de détection de cet évènement.

Si vous avez une piste pour exploiter l'évènement de scrolling sur un cadre, je suis preneur. Merci.

Thierry

[Thierry65]

Bonjour,

Personne n'a d'idée à proposer ? Si mon problème n'est pas clair, je peux essayer de l'expliquer autrement.

Thierry

[LadyWasky]

Une autre solution est de mettre mes composants d'en-tête hors du cadre, mais à ce moment-là, il faut que je synchronise l'affichage lors d'un scroll horizontal, et je suis confronté au même problème de détection de cet évènement.

Je vote pour cette solution.

Tout ce qui doit faire partie du Scrolling, tu le mets dans une ScrollBox, et tu détectes l'évènement du scroll à travers l'évènement OnConstrainedResize :

Code :

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

1
2
3
4
5
procedure TForm1.ScrollBox1ConstrainedResize(Sender: TObject; var MinWidth,
  MinHeight, MaxWidth, MaxHeight: Integer);
begin
  Label1.Caption:=IntToStr(ScrollBox1.HorzScrollBar.Position);
end;

(C'est vicieux hein ? )

C'est tout !

Bon dev

[Thierry65]

Merci pour ton aide, c'est exactement ce que je cherchais.

Thierry