Bonjour,

Voilà mon probleme : je crée un GroupBox dynamique, dedans j'y mets une image ; ça me la crée, pas de probleme, mais quand je veux interagir avec les propriétés de l'image, genre la faire disparaître ou plutot changer l'image d'origine.

J'avoue que les objets dynamiques je galère pas mal.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Groupe_ALIMx : TGroupBox;
  flecheHAUT_ALIMx : TImage; 
 
Groupe_ALIMx := TGroupBox.Create(Self) // j'ai essayer form1 c'est pas mieux;
 with Groupe_ALIMx do begin
   Parent       := Self; // j'ai essayer form1 c'est pas mieux
   Name         := 'Groupe_ALIM1';
   Caption      := 'ALIM 1 - TP001 - Test Armoire';
   Font.Height := -12  ;
   AutoSize     :=False;
   Width        :=192;
   Height       :=305;
   Left         :=668;
   Top          :=136;
 end;
 
 
   flecheHAUT_ALIMx := TImage.Create(Groupe_ALIMx);
 with flecheHAUT_ALIMx do begin
   Parent       := Groupe_ALIMx;
   Name         := 'flecheHAUT_ALIM1';
   Picture.LoadFromFile('images\fleches\fleche bleu haut petite.png') ;
   visible      :=true;
   Width        :=32;
   Height       :=43;
   Left         :=148;//148
   Top          :=8; //8
 end;                                 
 
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  if (FindComponent('flecheHAUT_ALIM1') as TImage).Visible=true then
     begin
        (FindComponent('flecheHAUT_ALIM1') as TImage).Visible:=false;
 
         end
  else
  begin
     (FindComponent('flecheHAUT_ALIM1') as TImage).Visible:=true;
 
    end;
 
end;