Discussion :

[kanzarih]

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

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
 
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Clorish]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kanzarih]

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

[Clorish]

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