Programación General > Delphi

 Ayuda Con Images

(1/1)

cidemente:
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

juanlaplata:
claro que se puede prueba con esto
--- Código: Text ---var im:TImage;    i:integer;beginfor  i:=1  to 16 do  begin     im:= (self.FindComponent('image'+intToStr(i))) as TImage;     ImageList1.GetBitmap(0,Im.Picture.Bitmap);  end; 
Espero te sirva. Suerte.

Navegación

[0] Índice de Mensajes