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;