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 |
Haz una búsqueda por FindComponent
Avisa si necesitas ayuda. |
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 |
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. |
¿Cómo los creas? ¿Puedes poner ese trozo de código?
|
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.
|
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.
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. |
Yo te recomiendo que huyas de esto:
Te evita un montón de problemas con el manejo de la memoria, con el borrado... |
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.
|
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.
|
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 :) |
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).
|
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. |
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 |
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, gracias compañero. Como siempre es un placer saber de ti. :)
|
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>. |
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 |
Hola.
Al agregar el objeto al StringList debes colocarle un identificador. El IndexOf verifica ese identificador.
|
La franja horaria es GMT +2. Ahora son las 16:56:18. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi