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;
Partager