Bonjour
J ai des répertoires contenant des raccourcis .
J ai un PageControl1 .
Je liste mes répertoires ( je leur octroie un index ) .
Pour chaque répertoire , je crée un TabSheet .
Ensuite je liste les fichiers dans chaque répertoire .
Je traite les fichiers pour obtenir des infos .
Je récupère le chemin de l'icône de chaque fichier .
C est maintenant que çà coince !
Je crée une image pour chaque fichier
En mettant Form1 comme parent , pas de souci .
Mais si je veux mettre un TabSheet , rien n'apparait .


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
22
23
24
25
26
27
28
 
 
FindFirst(  ExtractFilePath(Application->ExeName) + "racs\\*.*", faDirectory , Repertoire);
do {  if   ( (Repertoire.Attr & faDirectory) )   ListDir->Add(Repertoire.Name ) ;}
while( FindNext(Repertoire)==0 );
FindClose(Repertoire);
 
 
 
int nbmain = 0;
for ( int i = 2 ; i< ListDir->Count ;i++)  // 2 pour eviter repertoire . et ..
      {
 
      TTabSheet *pPage = new TTabSheet(PageControl1); // These tabsheets will be cleaned up by their owner (PageControl1).
      pPage->PageControl = PageControl1;
      pPage->Caption = ListDir->Strings[i]  ;
      pPage->Name = AnsiString("TabSheet") + IntToStr(i-1);
    }
 
 
for (   int i = 1; i < 6; i++ ) 
      {
      TImage * image ;
      image = new TImage(this);
      image->Parent = (TTabSheet*)Form1->FindComponent("TabSheet" + IntToStr(i) );
      image->Name = "image"+ IntToStr(i);
       // ...  image->Picture->Assign(Bitmap2);   image->SetBounds(  x , x ,x ,x ) ; ...
     }