Estoy realizando un "juego" en Delphi y por facilidad de control he creado una matriz de TImage
Código Delphi
[-]
Piezas: array [1..8,1..13] of TImage;
Tengo un método que iniciliza dicha matriz:
Código Delphi
[-]
for i:=1 to 8 do
for j:=1 to 13 do
begin
Piezas[i,j]:=TImage.Create(self);
Piezas[i,j].Name:='imagen'+inttostr(i)+'x'+inttostr(j);
Piezas[i,j].Width:=64;
Piezas[i,j].Height:=64;
Piezas[i,j].Top:=5+((i-1)*64);
Piezas[i,j].Left:=5+((j-1)*64);
Piezas[i,j].Parent:=Self;
Piezas[i,j].Picture.LoadFromFile('nada.bmp');
El problema que tengo es que deseo agregar el evento
onClick en cada
TImage pero necesito saber en que
TImage se dió el click
Añadí esta linea al método de arriba:
Código Delphi
[-]Piezas[i,j].OnClick:=form1.pintaPanel;
pintaPanel recibe esto: (Sender: TObject)
Dentro de
pintaPanel tengo que agregar una imagen al
TImage donde se ha dado click, pero no tengo idea de como hacer referencia hacia el