Bonjour,
 
Je suis entrain de réaliser un thumbnail perso qui charge différents types d'images et notemment du TIF.  J'ai donc récupéré une librairie avec une fonction (ReadTiffPage()) qui me renvoi une page du TIF sous la forme d'un TBitmap. Ensuite, je crée dynamiquement un panel avec à l'intérieur un TImage pour stocker ma miniature or j'ai un petit soucis ... car l'image semble prendre comme parent le parent de mon TPanel et non celui de mon TImage :
 
Voici comme j'ai crée :  
 
      //Conteneur Image
      with TPanel.Create(Self) do
      begin
        Name := 'VIGNETTE_' + IntToStr(i);
        Parent := Panel_vignettes;
 
        Caption := '';
        Color := clWhite;
 
        BevelInner := bvLowered;
        BevelOuter := bvRaised;
 
        Left := X;
        Top := Y;
 
        Width := LARGEUR_VIGNETTE;
        Height := HAUTEUR_VIGNETTE;
 
        OnClick := Select_Vignette;
 
 
 
        //Image
        with TImage.Create(Self) do
        begin
          Name := 'IMG_' + IntToStr(i);
          Parent := Panel_vignettes;
 
          Picture.Bitmap := ReadTiffPage(i-1);
          Stretch := True;
 
          Left := 0;
          Top := 0;
 
          Width := LARGEUR_VIGNETTE;
          Height := HAUTEUR_LABEL;
 
          Align := alClient;
        end;
       end;
 
 
J'espère avoir été clair dans mon esplication et je vous remercie par avance de vos réponses.
 
 
 
 
 
 

 
C'est-à-dire ?