?Necesito mover a los images automaticamente
Publicado por MS (35 intervenciones) el 21/03/2006 06:08:39
Tengo la siguiente codigo que me crea componentes imge de una forma secuencial y necesito mover los que se van creando modificando su propiedad Top y Left. Esto yo se que se logra con un Timer, pero cuando los llamo el timer no reconoce a los (Image) que se van creando. El codigo es como sigue:
(Public)
Var MiImagen:Timage;
inc(contador);
MiImagen:=TImage.Create(Self);
MiImagen.Parent:=Self;
MiImagen.Name:='imagen'+IntToStr(Contador);
MiImagen.Picture.LoadFromFile('C:\1.bmp');
MiImagen.Transparent:=true;
MiImagen.Left:=650;
MiImagen.Top:=40;
NECESITO MOVERLAS LLAMANDOLAS POR SU NOMBRE.
Los nombres de las imagenes que se van creando son: Imagen1, Imagen2, Imagen3, etc. Y NECESITO MOVERLAS DE UN LUGAR A OTRO DE LA PANTALLA PERO DELPHI ME DA ERROR Y ME DICE QUE NO LAS RECONOCE.
(Public)
Var MiImagen:Timage;
inc(contador);
MiImagen:=TImage.Create(Self);
MiImagen.Parent:=Self;
MiImagen.Name:='imagen'+IntToStr(Contador);
MiImagen.Picture.LoadFromFile('C:\1.bmp');
MiImagen.Transparent:=true;
MiImagen.Left:=650;
MiImagen.Top:=40;
NECESITO MOVERLAS LLAMANDOLAS POR SU NOMBRE.
Los nombres de las imagenes que se van creando son: Imagen1, Imagen2, Imagen3, etc. Y NECESITO MOVERLAS DE UN LUGAR A OTRO DE LA PANTALLA PERO DELPHI ME DA ERROR Y ME DICE QUE NO LAS RECONOCE.
Valora esta pregunta


0