Question sur l'utilisation des onglets

Pour plus de facilités, si tu as plusieurs composants sur ton tabsheet, tu les regroupe tous dans un TFrame, et tu ajoutes à chaque une frame dans ton TObjectList.

Ce que j'ai fait, et qui marche plutôt bien : tu crées un descendant de TTabSheet, auquel tu ajoutes une propriété Data : TObject, par exemple.

Ca élimine le TObjectList.

Code:

---

1 2 3 4 5 6 7 8 9 10

var MyTab : TMyTabSheet; syn : TSynEdit; begin MyTab := TMyTabSheet.Create(PageControl1); syn := TSynEdit.Create(MyTab); syn.Align := alClient; ... MyTab.Data := syn;

---

Puis avec le jeu des transtypages (data as TSynEdit), tu retombes sur le bon SynEdit...