Obtener Nombre De Componente

[dany2006]

Hola Necesito Obtener El Nombre Del Componente Sobre El Cual Posiciono El Puntero Del Mouse. Gracias

[roman]

Creo que la función FindVCLWindow de la unidad Controls es lo que buscas.

// Saludos

[dany2006]

me explicarias la sintaxis?. si tenes alguna sentencia de ejemplo te agradeceria.

[roman]

Pues la sintaxis exacta no sabría decírtela porque la sé para delphi, no para c++ builder, pero debe ser similar. Un ejemplo en Delphi:

Código Delphi [-]
procedure TForm1.AppEventsIdle(Sender: TObject; var Done: Boolean);
var
  Control: TWinControl;

begin
  Control := FindVCLWindow(Mouse.CursorPos);

  if Assigned(Control) then
    Caption := Control.Name;
end;

// Saludos

[roman]

Me acordé de que tengo instalado el turbo c++

Aquí el mismo ejemplo para c++:

void __fastcall TForm1::AppEventsIdle(TObject *Sender, bool &Done)
{
  TWinControl *Control;

  Control = FindVCLWindow(Mouse->CursorPos);

  if (Control)
  {
    this->Caption = Control->Name;
  }
}

En el ejemplo, AppEvents es una componente TAppEvents (pestaña Additional) y uso su evento OnIdle. Mouse es un objeto global que representa al ratón.

/* Saludos */

[dany2006]

muchisimas gracias. esta perfecto, pero no funciona para lo que necesito porque no me toma en cuenta los TShape. Probé mostrando en un Edit el nombre de los componentes y me muestra todos menos los TShape. Si encuentras la forma por favor avisenme. Gracias.