Ver Mensaje Individual
  #1  
Antiguo 10-11-2009
iktwo iktwo is offline
Miembro
 
Registrado: ago 2008
Posts: 22
Reputación: 0
iktwo Va por buen camino
Asignar un evento desde el código

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

Última edición por iktwo fecha: 10-11-2009 a las 23:51:34.
Responder Con Cita