création de TabSheet dynamiquement
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:
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 ;)
