Obtener Nombre De Componente

[dany2006]

ok. te cuento bien como seria. Tengo 121 Shapes en el formulario. Necesito que al pasar el puntero del mouse por cada uno de ellos pueda saber de cual se trata para cambiarle las propiedades.

[roman]

Pues no veo cuál es el problema. Con la función que puse en mi mensaje anterior puedes hacerlo invcándola en el evento MouseMove del formulario. El MouseMove no se detecta cuando se pasa por un control pero sí cuandos e pasa por un shape.

// Saludos

[dany2006]

Agradeceria que pusieran el codigo de c++, porque no entiendo muy bien el de Delphi. Se que es similar la fuente, pero no pude traducirla. Gracias

[dany2006]

Esta linea: como sería en c++?
if Components[i] is TShape then

[roman]

Buena pregunta, al parecer en C++ es distinto, no hay operador is.

Aquí ya no tengo el C++ para probar pero intentemos a ciegas:

TShape * __fastcall TForm1::FindShape(TPoint Pos)
{
  integer i;

  for (i = 0; i < this->ComponentCount; i++)
  {
    if (dynamic_cast<TShape *>(this->Components[i]))
    {
      if PtInRect(((TShape *)this->Components[i])->BoundsRect, Pos)
      {
         return ((TShape *)this->Components[i]);
      }
    }
  }

  return NULL;
}

// Saludos

[dany2006]

Estoy muy agradecido. Me salvaron totalmente. La verdad es que sos un capo por la disposición que tenés al escribir el código aunque sea "a ciegas". El código en C++ corregidos unos pequeños detalles sería:

TShape * __fastcall TForm1::FindShape(TPoint Pos)
{
  for (int i = 0; i < this->ComponentCount; i++)
    if ( dynamic_cast < TShape * > (this->Components[i]))
      if (PtInRect(((TShape *)this->Components[i])->BoundsRect, Pos) )
         return ((TShape *)this->Components[i]);
  return NULL;
}

Lo pongo por si le sirve a alguien más.

Hasta la próxima.