Obtener Nombre De Componente

[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.

[roman]

Pues por ahí hubiéramos empezado porque un Shape no es un WinControl. Lo único que se me ocurre es hacer un función que recorra todas las componentes del formulario y si es un Shape, vea si el ratón está sobre él:

Código Delphi [-]
function TForm1.FindShape(const Pos: TPoint): TShape;
var
  I: Integer;

begin
  Result := nil;

  for I := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TShape then
    begin
      if PtInRect(TShape(Components[i]).BoundsRect, Pos) then
      begin
        Result := TShape(Components[i]);
        break;
      end;
    end;
  end;
end;

procedure TForm1.AppEventsIdle(Sender: TObject; var Done: Boolean);
var
  Shape: TShape;

begin
  Shape := FindShape(ScreenToClient(Mouse.CursorPos));

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

No pongo ahora ejemplo en C porque mi turbo explorer se acaba de quedar congelado

// Saludos

[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