PageControl1 , tabSheets et images dynamiques
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:
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 ) ; ...
} |
