FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Crear Imagenes en ejecución
Buenas a todos, estoy creando un programilla de mapeo y necesito que me echeis una mano, se trato de los siguiente:
Tengo un TImage con su acciones, quiero coger en un componente añadir el numero de TImagenes que quiero hacer, todos con las mismas acciones que tenga el TImage del cual voy a crear los demas y cuando se vayan a crear que cada uno se ponga uno al lado del otro. Todo esto cuando el programa esta en ejecución. Espero que me entiendan sino les adjunto una imagen. http://img252.imageshack.us/my.php?image=samplegr6.jpg |
#2
|
||||
|
||||
Segun te entendi, lo que debes haces es crear un nuevo componente, y en este modificar las acciones que quieras, de esta manera el comopnente no seria un tImage sino un TMiImagen
Con respecto de uno al lado de otro cuadra que el area de dibujo sea un panel y le colocas la propiedad Align del TMiImagen como alLeft, asi deberia funcionarte, ahora no se si te entendi bien
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#3
|
|||
|
|||
nop sorry algunas veces me explico mal >.<
lo que quiero hacer es que cuando el programa este en ejecucion se puedan crear la cantidad que yo quiera de un TImage, y que tengan las mismas caracteristicas del TImage que quiero copiar osea, crear clones de ese TImage. |
#4
|
||||
|
||||
pero esas cofiguraciones especiales se hacen en diseño o ejecucion?? si es en ejecucion lo que debes es antes de asignarlas guardarlas en una variable y antes de crear el nuevo lo configuras desde esas variables, ahora si es en diseño sigue estando la idea de crear el componente.
y para crearlo en ejecucion MiImagen := TMIImagen.Create; no se si sigo sin entender
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#5
|
|||
|
|||
si, tan simple y mira XD thanks eduarcol sabrias como hacer que cada imagen al hacerle click asigne un valor en una array, osea dependiendo de la imagen creada al hacer click selecciona una posicion en la array y le guarda un valor. thanks
Última edición por Drake fecha: 01-07-2007 a las 18:37:56. |
#6
|
||||
|
||||
pero por fin como solucionastes??
configura el tag de cada tImagen la posicion del array luego lo que haces es
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#7
|
|||
|
|||
De la siguiente forma:
Definir la variable la cual sera un componente TImage
Creacion dela imagen
Si queremos crear varios hacemos un bucle y cambiamos:
Pos todo listo un saludo y gracias. |
#8
|
|||
|
|||
un pequeño cambio
Código:
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; procedure ClickImage(Sender:TObject); y la implementacion: Código:
procedure TForm1.ClickImage(Sender: TObject); begin showmessage('hiciste click en la imagen'+inttostr(tcomponent(sender).Tag)); end; |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
crear un dbf en time ejecucion | fartycl | Conexión con bases de datos | 2 | 28-06-2006 02:42:51 |
Crear un tchar en tiempo de ejecucion | detandil | Gráficos | 6 | 08-04-2006 20:30:59 |
Crear formularios en tiempo de ejecución | Caro | Varios | 2 | 25-08-2005 14:27:39 |
Crear loockup en ejecucion | soloriv | Tablas planas | 0 | 10-07-2004 00:51:00 |
Crear un DSN en tiempo de ejecucion | neyvan | Conexión con bases de datos | 7 | 21-05-2004 17:41:45 |
|