Crear Imagenes en ejecución

[Drake]

De la siguiente forma:

Definir la variable la cual sera un componente TImage

Código Delphi [-]
var
Tiles: TImage;

Creacion dela imagen

Código Delphi [-]
//Crear la imagen y darle las propiedades
        Tiles:= TImage.Create(Tile1); //Imagen de la cual crearemos las demas.
        Tiles.Top:= 0;
        Tiles.Left:= 32;
        Tiles.Width:= 32;
        Tiles.Height:= 32;
        Tiles.Name:= 'Tile'+IntToStr(2); //Nombre de la nueva imagen
        Tiles.Parent:= MapTiles; //Componente que contendra dicha imagen
        Tiles.Canvas.Draw(0,0,tileset1.Picture.Graphic); //por si queremos diujar algo en la imagen

Si queremos crear varios hacemos un bucle y cambiamos:

Código Delphi [-]
Tiles.Name:= 'Tile'+IntToStr(N_imagen); //Donde N_Imagen le ponemos la variable que ira incrementando la cual cada vez que se crea una nueva sera diferente sino nos daria fallo al intentar crear un componentecon el mismo nombre

Pos todo listo un saludo y gracias.

[gabrielkc]

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:

procedure TForm1.ClickImage(Sender: TObject);
begin
 showmessage('hiciste click en la imagen'+inttostr(tcomponent(sender).Tag));
end;