Bonjour,

je voudrais créer dynamiquement un controle TFrame sur chaque tabsheets de mon Tpagecontrol à la création de ma page principale...

voila ce que j'ai commencé a faire mais ça ne marche pas :
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
17
18
19
20
21
var
  Form1: TForm1; 
  fracb : array of TFrame1;
implementation
 
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
 
begin
     for i := 0 to pctype.ControlCount-1 do
     begin
          setlength(fracb,i+1);
          fracb[i] := TFrame1.Create(self);
          fracb[i].Parent := pctype.Pages[i];
          //fcomp := TFrame1.Create(form1);
          //fcomp.Parent := pctype.pages[1];
 
     end;
 
end;
ce que j'ai mis en commentaire mais je n'arrive pas à créer mon Frame sur chaque Tabsheet dynamiquement, si quelqu'un peut m'expliquer ça m'aiderai beaucoup.

Merci.