Discussion :

[Leesox]

Bonjour,

Je crée avec ce code des composants TImage dans une boucle "For"

Code :

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

1
2
3
4
5
6
7
8
With Timage.Create(pnlParent) do
   begin
   Top:= 7 + (TailleCase div 2) + (i * TailleCase);
   Width:= TailleCase;
   Height:= TailleCase;
   Name:='_' + intToStr(k) + '_' + IntToStr(j + 1) + '_' + IntToStr(i + 1);
   OnMouseMove:= MouseMoveSurCase;
   end;

J'ai donc plusieurs "Timage" qui sont créés dans la boucle For et qui portent chacun un nom via la propriété "Name".

J'ai besoin d'accéder lors de l'évenement "OnMouseMove" d'un Timage quelconque aux propriétés de tous les TImage qui ont la même valeur "k" que le TImage en question, dans leurs noms.

Pour accéder aux propriétés du TImage survolé par la souris, çà je sais faire via

Code :

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

TImage(Sender)

mais pour accéder aux propriétés des autres TImage que celui qui est survolé par la souris, j'en appelle à votre aide.

Merci d'avance

[Andnotor]

Code :

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

1
2
3
for i := 0 to pnlParent.ControlCount -1 do
  if pnlParent.Controls[i] is TImage then
   ...

Pour éviter de devoir parser le nom du contrôle, assigne k à la propriété Tag des TImages.

Code :

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

1
2
3
4
for i := 0 to pnlParent.ControlCount -1 do
  if (pnlParent.Controls[i] is TImage) and 
    (pnlParent.Controls[i].Tag = TControl(Sender).Tag) then
   ...

[Leesox]

Merci beaucoup pour ta réponse, mais comment puis-je ensuite acceder à la propriété Picture du TImage

Code :

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

pnlParent.Controls[i].

[CapJack]

N'oublie pas de documenter aussi la propriété Parent des TImage.

Moi je stockerais mes TImage instanciés dans un TList.

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
var MyImages : TList;
 
...
// code à mettre dans FormCreate :
MyImages := TList.Create;
 
...
// code à mettre dans FormDestroy :
if assigned(MyImages) then MyImages.Free;
 
...
// code à mettre dans la procedure contenant la boucle :
var ProvImage : TImage;
...
ProvImage := Timage.Create(pnlParent);
MyImages.Add(ProvImage);
With ProvImage do
   begin
   Parent := pnlParent;
   Top:= 7 + (TailleCase div 2) + (i * TailleCase);
   Width:= TailleCase;
   Height:= TailleCase;
   Name:='_' + intToStr(k) + '_' + IntToStr(j + 1) + '_' + IntToStr(i + 1);
   OnMouseMove:= MouseMoveSurCase;
   end;

Et la tu accèdes à tes images par exemple avec :

Code :

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

1
2
for i := 0 to MyImages.Count - 1 do
 with TImage(MyImages[I]) do ...

On peut aussi utiliser un tableau statique (si le nombre d'images est fixe, c'est peut-être mieux), ou un tableau dynamique.

[Leesox]

Merci à vous deux, la solution du Tlist me plait et fonctionne très bien