Ver Mensaje Individual
  #7  
Antiguo 01-07-2007
Drake Drake is offline
Miembro
 
Registrado: dic 2005
Posts: 80
Reputación: 19
Drake Va por buen camino
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.
Responder Con Cita