obtener ubicación y nombre de imagen

[[duilioisola]]

Según entiendo, el objeto Imagen1 no guarda el lugar desde donde tomó la imagen.
Deberás tener alguna otra cosa que te lo indique.
Supongo que al cargar por primera vez la imagen puedes poner el nro. de imagen en una variable. Luego, dependiendo de esto cargas una o la otra

NroImagen=1;
Image1->Picture->LoadFromFile("icons\\1a.bmp");
...
if (NroImagen==1)
   if (Image1->Visible == true) {Image1->Picture->LoadFromFile("icons\\1a.bmp"); NroImagen=1;}
else
   if (Image1->Visible == true) {Image1->Picture->LoadFromFile("icons\\2a.bmp"); NroImagen=2;}

[ecfisa]

Hola impadrón.

Como bién te señala duilioisola, TImage no almacena esa información.

Me acordé de este mensaje en el cuál dec da una solución muy simple e ingeniosa.

En C++ quedaría más o menos así:

...
char *s;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 s = "C:\\TEMP\\LogoRad.bmp";
 Image1->Tag = (int) s;
 Image1->Picture->LoadFromFile(s);
}

Es decir que utilizas la propiedad Tag del TImage para guardar la dirección de la variable que almacena la ruta+archivo cargado actualmente.

Un saludo.

[roman]

Pero, esto de usar el Tag para guardar una cadena de caracteres debe tener sus asegunes ¿no? En algún momento se debe asignar memoria y liberarla posteriormente. ¿Por qué no usar el Tag simplemente para guardar el número de imagen?

// Saludos