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:
je trouve ca plutot compliqué et ne comprend pas l'utilité d'utiliser une frame...
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;
Quelqu'un a t il une méthode plus simple a me proposer?
Merci d'avance![]()
Partager