Código:
procedure TForm1.CreaImgenes(n:Integer);
var Image:TImage;
begin
for x:=1 to n do
begin
image:=TImage.Create(Self);
image.Top:=0;
image.Left:=x*32;
image.Width:=32;
image.Height:=32;
Image.AutoSize:=False;{Para que no cambie el tamaño del componente}
Image.Stretch:=True;{Para que se ajuste al tamaño que asignamos}
Image.OnClick:=ClickImage;
image.Parent:=Self;
image.Tag:=x;
Image.Name:= 'Imagen'+IntToStr(n); //El nombre de la imagen quedaba fija
image.Picture.LoadFromFile('C:\images\Powered5.jpg');//imagen a cargar
image.Show;
end
end;
y clickimage se define en la parte privada de la forma como :
procedure ClickImage(Sender:TObject);
y la implementacion:
Código:
procedure TForm1.ClickImage(Sender: TObject);
begin
showmessage('hiciste click en la imagen'+inttostr(tcomponent(sender).Tag));
end;