Discussion :

[dacid]

Bonjour à tous,

Sur une fiche, je crée un tPanel avec des composants dessus.
Il y a beaucoup de composants (plus que la hauteur du tPanel), donc j'utilise un tScrollBar.

J'aimerais savoir si un composant est affiché à l'écran (visible pour l'utilisateur) ou s'il n'est pas dans la zone visible du tPanel.

J'ai pensé qu'un clientToScreen ou un position me permettrait d'avoir cette information en me renvoyant un -1, mais ce n'est pas le cas.

Avez vous une piste ?

Merci d'avance.

[Qwazerty]

SAlut
En utilisant un scrollbox plutot qu'un scroll barre, et en y deposant ton panel, tu peux faire comme cela

Code :

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

     If ((panel1.Top + button1.top) > ScrollBox1.Height) Then edit1.Text := 'Invisible' Else Edit1.Text := 'Visible'

A++
Qwaz

[dacid]

Bonjour Qwazerty,

Ok, je n'y avait pas pensé, je tente ça tout de suite.