Discussion :

[Leesox]

Bonjour,

Je vais expliquer mon problème avec le code :
Je crée plusieurs TImage : ceci est dans une boucle For

Code :

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

1
2
3
4
5
6
7
8
9
10
11
With Timage.Create(pnlParent) do
    begin
    Parent:= pnlParent;
    name:= 'T' + IntToStr(i + 1) + 'T' + IntToStr(j + 1);
    Top:= 7 + TailleIntervalle + (TailleCase div 2) + (i * TailleCase);
    Left:= 10 + TailleIntervalle + (TailleCase div 2) + (j * TailleCase);
    Width:= TailleCase - 5;
    Height:= TailleCase - 5;
    Picture.Bitmap:= CaseVide;
    Onclick:= ClikSurCase;
    end;

J'ai donc plusieurs TImage nommés lors de la création

Ensuite dans mon évenement

Code :

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

1
2
3
4
procedure FrmAccueil.ClikSurCase(Sender: TObject);
Begin
 
end;

Dans cette procédure, je désire, par exemple changer des propriétés du TImage cliqué par l'utilisateur, comment doit appeller le Timage : Sender ????

Merci de votre aide.

[qi130]

Dans la déclaration de la procédure, Sender est bien le compo ayant appelé.

Dans le corps de la procédure, il faudra le typer afin d'accéder aux propriétés de ce type d'objet:

Code :

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

(Sender as Timage)

[Cl@udius]

comment doit appeller le Timage : Sender ????

Salut !

Tout à fait, utilises le Sender pour accéder à ton TImage:

Code :

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

1
2
3
4
5
6
7
 
procedure FrmAccueil.ClikSurCase(Sender: TObject);
Begin
  with TImage(Sender) do begin
     // Ton traitement sur le compo
  end;
end;

[EDIT] Grillé par qi130 [/EDIT]

@+

[Leesox]

Merci à tous les deux et bravo pour la rapidité