PageControl : Begin Update
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:
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;
...
... |
Merci pour aide.
Bruno
