PageControl : Begin Update

**Bruno13** · 18/12/2006, 20h58

Bonjour à tous,

J'ai dans mon appli un PageControl sur lequel j'ai 16 onglets, mais voilà suivant ce que je selectionne comme option seulement 5 ou 6 onglets doivent rester visibles. Donc je procéde de la maniere suivante :
1- je rends TOUS mes TabVisible à False
2- je rends visible seulement les onglets nécessaires

Ce qui ne me plait pas c'est que l'on voit les onglets disparaître comme si ils se décrémentés.

Existe-t-il une options que je n'ai pas trouvé qui fait un truc du style : BeginUpdate / EndUpdate

voici mes fonctions (pas toutes):

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
16
17
18
 
procedure TChild.HideAllSLeft;
var
  i : integer;
Begin
  // ICI JE PEUX PAS FAIRE UN TRUC BEGINUPDATE ???
  for i:=0 to pcLeft.PageCount-1 do
    pcLeft.Pages[i].TabVisible:=False;
End;
 
procedure TChild.ShowAuthor;
begin
  sLeftInventors.TabVisible:=True;
  sLeftApplicants.TabVisible:=True;
end;
 
...
...