Cree un Dynamic treeview dans un Tabsheet

bonjours a tous ;)
j'ais ecrit un code qui permet de cree dynamiquement une Tabsheet dan un Page Control:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.AddTab(na :String; capt:String; pc: TPageControl); var i:integer; begin //dd with TTabSheet.Create(pc) do begin PageControl := pc; Name := na; Caption := capt;   end; i:=pc.PageCount; CreateTab(pc.Pages[0]); end;

---

mais j'arrive pas a cree une TreeView dans la dite Tabsheet (CreateTab()) :

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.CreateTab(tt:TTabSheet); begin with TTreeView.Create(tt) do begin Name := 'nn';   Align := alClient; end; end;

---

En fait je n'utiliserais pas le Create directement dans le With .. d'ailleru jamais.
Sinon tu pert la reference au composant.

Ce n'est pas grave en soit car le systeme de gestion des composants VCL est fait correctemetn par delphi, a condition que le parametre "owner" est bien ete specifié dans le create.

Mais cela empeche ou complexifie l'acces ulterieur a ce composant.

Je ferais donc cela :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private _tsMonTabSheet : TTabSheet; [...]   Self._tsMonTabSheet := TTabSheet.Create(Self); With Self._tsMonTabSheet do Begin [...] End;

---

De ce fait, ta solution est toute trouvee car ce qui est resposable de l'affichage de ton composant cree dynamiquement est l'affectation de la proprietee "parent".

Donc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private _tvMonTreeView : TTreeView; [...]   Self._tvMonTreeView := TTreeView.Create(tt) with Self._tvMonTreeView do begin Parent := Self._tsMonTabSheet; [...] end;

---

Note :
Le "Owner" est responsable de la liberation du composant. C'est a dire que quand le "owner" est detruit, tous ceux qui ont pour "owner" ce composant seront aussi detruit avec lui.

Le "parent" lui est responsable de l'affichage graphique. C'est lui qui "dessine" le composant dont il est le "parent".

En general, PArent et Owner sont les memes, maiscela n'est pas une regle, loin de la :)

Merci Clorish ca marche, mais j'éspère que tu reste dans le coin car j'aurait besoin de vos compétence ;)

Bha j'ai mes periodes .... mais celle ci viens juste de commencer ;)