Bonjour à toutes et tous.

Le principe du traitement est le suivant: J'ai une liste d'indice que je parcours. Je parcours ensuite chaque page d'un TPageControl et je compare la propriétée TAG de la page avec l'indice.

Si TAG = Indice alors je rends la page invisible.

Quand tous les indices ont été traités, je parcours à nouveau les pages et j'inverse (not) la propriétée Visible.

Donc à l'arrivé, seules les pages correspondant à un indice sélectionné sont visibles. Mais voilà, il semble que malgrè tout la propriété Visible mise à False ne soit pas prise en compte.

Un sample du code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
// Si le tag correpond à Indice, rendre invisible
For J := 1 To Max Do Begin
With PageControl1 Do Begin
   For I := 0 To PageCount - 1 Do
        If Pages[I].Tag = Indice[J] Then 
           Pages[I].Visible := False;
End;
End;
 
// Inverser la propriété Visible: Seuls les onglets correspodant à la selection sont visibles.
With PageControl1 Do Begin
   For I := 0 To PageCount - 1 Do
           Pages[I].Visible := Not Pages[I].Visible;
End;
Merci d'avance si vous avez une astuce.