Discussion :

[philippe63000]

Bonjour,

Je voudrais créer/ faire apparaître et disparaître une 'boîte' contenant des images cliquables.
Que me conseillez-vous de faire?

Merci d'avance.

[Dr.Who]

Qu'est-ce que tu appel "boite" ? un dialogue ?

Pour qu'elle finalité ?

[Charly910]

Bonjour,

Par exemple, pour les mettre cote à cote sur ta form F_Main :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
   For i := 1 To NbImages Do
      Begin
        Image[i] := TImage.Create(Self) ;
        Image[i].Parent  := F_Main ;
        Image[i].Top     := Marge ;
        Image[i].Left    := Marge + (i-1) * L1  ;
        Image[i].Height  := Hauteur ;
        Image[i].Width   := Largeur ;
        Image[i].Stretch := True ;
        Image[i].Cursor  := CrHandPoint ;
        Image[i].OnClick := ImageClick ;
      End ;

Marge : la marge en pixels en haut et à droite,
L1 : le pas horizontal,
Hauteur et Largeur : de chaque image (toutes identiques)
Curseur : main
le clic exécute la fonction ImageClick

A+

Charly

PS : pour les faire disparaitre et apparaitre : jouer sur les propriétés Visible des images

[ShaiLeTroll]

Couple une TImageList + TListView, tu obtiendras un comportement proche des miniatures de l'Explorateur

Voir l'affichage de miniature façon explorateur de windows