Cargar TImage

[Isuri]

Mi codigo antes era:


Image1 := TImage.Create(self);
Image1.Picture.LoadFromFile('corazon.jpg');
Image1.Height := 17;
Image1.Width := 17;
Image1.Top := 32;
Image1.Left := 152;


es parecido al tuyo pero no me va, he probado con tu codigo, dec, pero sigp sin ver la imagen al ejecutar...

[dec]

Hola,

El código que he puesto debería irte bien, puesto que lo he probado antes de enviarlo. ¿Qué podría "fallar"? Tal vez la versión de Delphi. Sé que la unidad "Jpeg" ya existía en Delphi 7, y, en lo demás no veo posibles problemas en este sentido. A tu código le falta al menos el "Parent". Debes darle un "Parent" al componente "TImage", tal como digo en mi anterior mensaje.

[Isuri]

la version que uso es delphi 7, en la unidad jpeg va bien en esta version, ya que la he usado en otras ocasiones. no se que es lo que puede fallar pero gracias.

[dec]

Hola,

Pues... del código que has mostrado últimamente, ya digo, lo único que hecho en falta es la asignación de la propiedad "Parent" del "TImage":

Código Delphi [-]
  Image1 := TImage.Create(self);
  Image1.Picture.LoadFromFile('corazon.jpg');
  Image1.Height := 17;
  Image1.Width := 17;
  Image1.Top := 32;
  Image1.Left := 152;

  // Añadir esto
  Parent := Self;

Sin embargo... veo algo extraño en el código, y es el identificador "Image1". Normalmente, estos identificadores corresponden a componentes creados en tiempo de diseño, por el propio Delphi, mediante la técnica de arrastrar un componente desde el Inspector de Objetos a un determinado formulario.

Si lo que haces es esto último, entonces no es que falte algo en tu código, sino que tal vez sobre. En efecto, no necesitas crear un componente que ha sido añadido en tiempo de diseño, porque el propio entorno se encargará de crearlo. Es decir, entonces en tu código sobraría esta instrucción:

Código Delphi [-]
Image1 := TImage.Create(self);

Ya tienes el componente en el formulario, luego, no necesitas crearlo. Dándole vueltas, creo que he pasado por alto esto de tu primer mensaje: "ya que destruyo y vuelvo a crear la imagen varias veces." Si lo que necesitas es cargar distintas imágenes en un mismo "TImage", simplemente, cárgalas, usa el "Picture.LoadFromFile()", sucesivamente, puesto que las imágenes, si no me equivoco, no se solapan, sino que la última sustituirá a la que hubiera antes.

PD. Tal vez podría añadirse algo que no parece muy evidente. Para "quitar" una imagen de un componente "Timage", no hay ningún método preparado, pero, en su lugar puede usarse algo así:

Código Delphi [-]
Image1.Picture := nil;

Esa instrucción no destruirá el objeto "TImage", de modo que podrá cargarse en el mismo una nueva imagen (o no).

[Isuri]

Muchas gracias dec, no he hecho exactamente lo que tu me has dicho pero me has dado otra idea, y ya lo he arreglado.

Gracias!!

[dec]

Hola,

Hombre, ¡pero dí que has hecho! Igual resulta interesante.

[Isuri]

Es que no se como no se me ha ocurrido antes, sin mas, en un momento dado queria que no se viera esa imagen, y mas tarde que se volviera a ver. al principio he optado x la idea de destruir y volver a crear la imagen, en eso tenia el problema, en crearla en tiempo de ejecucion. pero es tonteria hacer esto, teniendo la propiedad 'visible'; por lo que lo unico que he hecho ha sido poner visible a false o true, y la imagen la he creado en tiempo de diseño.

gracias x todo dec!!