Bonjour,
Je vais expliquer mon problème avec le code :
Je crée plusieurs TImage : ceci est dans une boucle For
J'ai donc plusieurs TImage nommés lors de la création
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;
Ensuite dans mon évenement
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 ????
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 procedure FrmAccueil.ClikSurCase(Sender: TObject); Begin end;
Merci de votre aide.
Partager