Discussion :

[Caine]

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.

[Soulama]

Ben moi je ferais comme ca:

Code :

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

1
2
3
4
5
6
7
8
 
// 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
           Pages[i].TabVisible := Pages[i].Tag <> Indice[J];
End;
End;

[Cl@udius]

Salut

Je suis d'accord avec Soulama.
Il faut que mette à jour ta propriété visible dans les 2 cas puisque tu as 2 boucles imbriquées.

@+ Claudius

[Caine]

Merci à tous les deux.

Je n'utilisais donc pas la bonne propriété!

Je teste ça ce soir.

[edit]
Ca marche, mais comment éviter la mise à jour a chaque changement de tabvisible? Je ne trouve pas de méthode BeginUpdtae?

Merci de votre aide