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