Programación General => Delphi => Mensaje iniciado por: cidemente en Miércoles 25 de Abril de 2007, 00:53
Título: Ayuda Con Images
Publicado por: cidemente en Miércoles 25 de Abril de 2007, 00:53
Hola, tengo que cargar 16 images con una misma imagen, mi codigo es el siguiente: ImageList1.GetBitmap(0,Image1.Picture.Bitmap); ImageList1.GetBitmap(0,Image2.Picture.Bitmap); ImageList1.GetBitmap(0,Image3.Picture.Bitmap); .......... y asi hasta el ImageList1.GetBitmap(0,Image18.Picture.Bitmap);
mi pregunta es si se puede hacer de alguna manera mas sencilla (usando un for) ya que de esta forma me dicen que es ineficiente, que deberia hacerlo en menos lineas, muchas gracias por su ayuda
Título: Re: Ayuda Con Images
Publicado por: juanlaplata en Jueves 26 de Abril de 2007, 19:51
claro que se puede prueba con esto
Código: Text
var im:TImage;
i:integer;
begin
for i:=1 to 16 do
begin
im:= (self.FindComponent('image'+intToStr(i))) as TImage;