Discussion :

[tomy29]

Bonjour,

J'ai un TTabControl avec 3 TTabSheet, quand j'arrive sur l'ecran contenant ce TTabControl je dois voir apparaitre les 3 TTabSheet mais leur contenu doit etre invisible(il ne sera visible que si l'on coche dans une case).

Existe-t-il une facon simple de gérer cette invisibilité? (les composants dans les tabsheet n'ont pas de nomage normé...)

Merci.

[qi130]

Il aurait été plus simple de gérer l'invisibilité de la page

Quoi qu'il en soit, le tabsheet est le parent des composants qu'il contient.
Tu devrais t'en sortir avec une boucle en ce sens.

[Cl@udius]

Salut !

Comme dit qi130 une simple boucle suffit

Tu peux écrire une procédure comme celle-ci:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.DisplayHideControls(AIndex: Integer; AVisible: Boolean);
var
  i: integer;
begin
  with PageControl1.Pages[AIndex] do begin
    for i := 0 to ControlCount - 1 do Controls[i].Visible := AVisible;
  end;
end;

Et l'appeler par exemple ainsi:

Code :

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

1
2
 
  DisplayHideControls(0, True);

@+

[tomy29]

D'accord,
Merci!!

[blond1888]

salut, pour ma part j'ai eu ce petit problème; j'ai simplement placé mes composants dans des groupbox.

je peux ainsi afficher les composant de mon choix et meme faire plusieur group sur la meme page...

[Soulama]

on peut faire aussi comme ca:

Code :

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

xTabSheet.TabVisible:= False