Asignar una imagen de un TImageList a un TBitButton en ejecucion

[ecfisa]

Hola aguml.

Empezado por aguml

...
He probado con:

Código PHP:

ImageList->GetBitmap(0,BitBtnImprimir->Glyph); 
pero no surte efecto, solo me ha funcionado usando el metodo de arriba y la verdad es que no me agrada tener que usar un TBitmap intermedio para ello ¿se puede hacer directamente? 


...

Entonces, la pregunta inicial esta mál formulada. No es que el código anterior no surta efecto, sucede cuando se intenta cargar una imágen a un TBitBtn que ya posee una.

Empezado por aguml

No se porque hay que poner a NULL el Glyph antes de asignarle una nueva imagen para que funcione pero asi funciona y sin eso no funciona. ¿pueden explicarme por que? ¿es correcto lo que hago?

No exíste un método como "Clear" o "Delete" que realice el borrado de un contenedor gráfico, la forma de "limpiarlo" es asignándole el valor NULL.
Esto, por ejemplo, también se cumple para un TImage, donde el código a aplicar es:

Código PHP:

{
  Image1->Picture = NULL; // ó : ... = 0
  // O, con el mismo resultado:
  Image1->Picture->Assign(NULL); // ó : ... = 0
} 


Así que si, definitivamente es correcto hacerlo de ese modo.

Saludos