[Lazarus] Changement d'une image dynamique

Changement d'une image dynamique

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:

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;

Bonjour,
Si tu fixes à Form1 le Owner de ton TImage, le FindComponent devrait le trouver.
Dans ton code, c'est le TGroupBox qui en est propriétaire alors qu'il doit en être Parent uniquement.

Merci pour le retour mais en ligne de commande ça donne quoi du coup, parce que là je suis noyé.

Bon ça marche avec ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
flecheHAUT_ALIMx := TImage.Create(form1);
 with flecheHAUT_ALIMx do begin
   Parent       := Groupe_ALIMx;
   Name         := 'flecheHAUT_ALIM1';
   Picture.LoadFromFile('images\fleches\fleche bleu haut petite.png') ;
   OnClick      :=@cadenasOUVERT_ALIMClick;
   visible      :=true;
   Width        :=32;
   Height       :=43;
   Left         :=148;//148
   Top          :=8; //8
 end;