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
|
||||
|
||||
Acceder a objetos creados en tiempo de ejecución
Hola a tod@s.
En un formulario tengo una serie de objetos que se crean en tiempo de ejecución y posteriormente tengo que cambiarles alguna de sus propiedades. El tema es que esos objetos que se crean en tiempo de ejecución no me aparecen en el "componentcount" del formulario y no puedo hacer un bucle para localizarlos por su nombre, la verdad no sé por qué. ¿Alguien me podría decir de qué manera puedo acceder a ellos para modificarles cosas? Gracias y un saludo
__________________
Be water my friend. |
#2
|
||||
|
||||
Haz una búsqueda por FindComponent
Avisa si necesitas ayuda. |
#3
|
||||
|
||||
Hola
Lo primero seria saber que clase de objetos estas creando. Sin descienden de TComponent y les asignas un parent o son descendientes de TObject. Podrias almacenar los objetos en un TObjectList y asi puedes tener acceso a ellos. Bueno depende de la forma que los estes creando. Saludos
__________________
Caminante, son tus huellas el camino y nada más; Caminante, no hay camino, se hace camino al andar. Antonio Machado |
#4
|
||||
|
||||
Hola y gracias por vuestras respuestas.
Los objetos que estoy creando son unos componentes propios que tienen un "TImage" y un "Caption" dentro de un recuadro para poder mostrar botones con imágenes y un texto con colores configurables, etc. Estuve mirando el comando "FindComponent" pero no me funcionaba, no sé si hay algún uses que no estaba poniendo o cual era el problema pero no pude llegar a utilizarlo. ¿Algún ejemplo tontuno y/o hay que usar algún uses en especial? Gracias y un saludo Edito: Ok, ya veo como es la sintaxis. Pruebo y si tengo algún problema ya comento. Gracias.
__________________
Be water my friend. Última edición por newtron fecha: 14-11-2020 a las 11:32:18. |
#5
|
||||
|
||||
¿Cómo los creas? ¿Puedes poner ese trozo de código?
|
#6
|
||||
|
||||
Claro, te lo paso aunque le he dado otra solución porque, como siempre, tengo el tiempo escaso y le estaba dando muchas vueltas a este tema.
__________________
Be water my friend. |
#7
|
||||
|
||||
Se me ocurre que puede ser por el tema del Owner.
Segun la ayuda componentcount: Indicates the number of components owned by the component. Si estás creando los componentes sin Owner, el ComponentCount/Components[i] no los encontrará. Y lo mismo pasará si estás utilizando el ComponentCount/Components[i]sobre un contenedor al que no pertenecen. Por otro lado yo recomiendo por temas de optimización (y para más seguridad) que en lugar de utilizar FindComponent, crees una lista personal (TList/TStringist/TObjectList/TList<Tcomponent>,...) para almacenar, gestionar, buscar,... los componentes creados en runtime. ACTUALIZACIÓN: Ahora que veo el código, se me ocurren 2 opciones: (1) Crear los componentes con un Owner. (2) Añadirlos a una lista propia para gestionarlo.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#8
|
||||
|
||||
Germán.
Efectivamente he tirado por la opción de crear una lista para guardar los componentes. De una forma o de otra viene bien conocer el problema por si tengo que "recular" en el manejo de todo esto y volver a la búsqueda de los componentes creados. Gracias a todos y un saludo.
__________________
Be water my friend. |
#9
|
||||
|
||||
Yo te recomiendo que huyas de esto:
Te evita un montón de problemas con el manejo de la memoria, con el borrado... |
#10
|
||||
|
||||
Yo lo he usado muchas veces y por ejemplo, utilizar una TStringList ordenada, con el nombre de los componentes, mejora infinitamente la velocidad (más cuanto mayor sea el número de componentes) ya que la búsqueda en una lista ordenada es dicotómica, en lugar de secuencial.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#11
|
||||
|
||||
También puedes asignar a la propiedad "Tag" del botón el código del artículo, así cuando se pulse un botón no hay que buscar nada, solamente tomar su tag y ya tienes el código del artículo.
|
#12
|
||||
|
||||
Hola.
Y, si usas la clase TStringList como te sugiere Neftali, mediante el método AddObject puedes almacenar tanto el nombre del objeto como el objeto mismo.
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#13
|
||||
|
||||
Coñe, me apunto lo del TStringList, que no me acordaba yo que podía usarse como contenedor de objetos. La de dolores que me va a ahorrar (cuando me acuerde de usarlo).
|
#14
|
||||
|
||||
Cita:
TStringList, esa gran desconocida... Nosotros en su día hicimos pruebas de velocidad con otras listas tipo TDictionary e implemenaciones de las listas hash y TStringList resultó en muchos casos más rápida que estas.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#15
|
||||
|
||||
Buenas compañeros.
De nuevo con este tema. Una vez medio resuelto el tema almacenando las imágenes en "Imagelist" veo que, o no sé o las imágenes no puedo guardarlas con una resolución mayor de X con lo que al mostrarlas grandes se ven muuuuuuuuuuuuuuuuuu mal. Estoy pensando en guardarlas en una lista tal y como habéis apuntado. Creo una lista de "Timage" tal y como apuntaba mi querido amigo ecfisa pero después no soy capaz de asignarla al componente TImage. Esto es lo que estoy haciendo (ejemplo tontuno):
Entendiendo que esto anterior sea correcto luego no sé cómo asignarla al TImage. ¿Alguien me puede ilustrar? Gracias y un saludo
__________________
Be water my friend. |
#16
|
||||
|
||||
Hola estimado amigo
Una vez asignado el objeto puedes hacer Para referirte al objeto imagen almacenado, usa el moldeo TImage(Lista.Objects[n]). Otro ejemplo similar que asigna una imagen cargada en un TStringList a un TImage creado en tiempo de diseño:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 24-11-2020 a las 21:31:20. Razón: Agregar ejemplo |
#17
|
||||
|
||||
Daniel, gracias compañero. Como siempre es un placer saber de ti.
__________________
Be water my friend. |
#18
|
||||
|
||||
Como añadido a lo que ha comentado [ecfisa], también puedes probar, por ejemplo, con Streams.
Puedes cargar las imágenes en la lista utilizando lo siguiente:
Y asignarla a un TImage con este:
De forma similar debes poder utilizar TStringList, TObjectList, TList<TStream>, TArray<TStream>.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#19
|
||||
|
||||
Gracias Germán.
Ya había pensado también en la posibilidad de usar Streams pero, como casi siempre, os adelantáis. De momento estoy intentando resolver el tema con TStringList pero ahora se me ocurre que me vendría bien poder buscar dentro de la lista por el nombre del objeto pero no consigo dar con la sintaxis, si es una lista de strings se busca con "IndexOf" pero en este caso que es una lista de objetos.... ¿cómo se haría la búsqueda por el nombre del objeto? Gracias y un saludo
__________________
Be water my friend. |
#20
|
||||
|
||||
Hola.
Al agregar el objeto al StringList debes colocarle un identificador. El IndexOf verifica ese identificador.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Acceder a componentes creados en ejecución | bulc | Varios | 5 | 01-03-2019 16:44:17 |
Error TStringList creados en tiempo de ejecución | subzero | Varios | 14 | 26-01-2008 13:58:05 |
Destruir Qrlabels creados en tiempo de ejecucion | Ade | Impresión | 6 | 08-10-2006 19:46:28 |
Eventos en componentes creados en tiempo de ejecucion | joumont | OOP | 3 | 27-12-2005 14:48:23 |
Objetos creados en tiempo de ejecución | Scocc | OOP | 4 | 13-06-2003 20:55:29 |
|