Discussion :

[Jayceblaster]

bonjour j'ai créé dynamiquement dans un projet VCL un TPageControl et je souhaite lui ajouter dynamiquement des TabSheet a l'appui sur un bouton.
Je suis allé voir la fac et j'ai trouver ce programme:

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
19
20
21
 
var 
  tbs : TTabSheet; 
begin 
  //On s'assure que Self est un descendant de TComponent
  assert(Self is TComponent, 'L''objet Self n''est pas un descendant de TComponent');
  // Création de la page
  tbs := TTabSheet.Create(Self); 
  // Création du contenu de la page
  with TFrame2.Create(self) do 
  begin 
    // Attention, chaque frame doit avoir un nom différent
    Name := 'Frame2' + intToStr(PageControl1.PageCount); 
    Align := alClient; 
    Parent := tbs; 
  end; 
  // Ajout de la page au TPageControl
  tbs.PageControl := PageControl1; 
  // Modification du titre de l'onglet
  tbs.Caption := 'Frame n°' + intToStr(PageControl1.PageCount); 
end;

je trouve ca plutot compliqué et ne comprend pas l'utilité d'utiliser une frame...
Quelqu'un a t il une méthode plus simple a me proposer?

Merci d'avance

[skywaukers]

bonjour,

disons que tbs := TTabSheet.Create(Self); suffit à créer une tabsheet, tbs.PageControl := PageControl1; suffit à l'affecter au pagecontrol.
Mais tu as une page vide ! Il faut ensuite y placer dynamiquement tes composants. Donc l'utilité d'une frame s'impose rapidement puisqu'elle te permet de composer ta page, avec les events et tout et tout qui va bien et que tu peux la créer dynamiquement pour la placer sur ta nouvelle page.

@++
Dany