Sobre lectura de componentes

[viveba]

Hola!!

Quisiera saber cómo puedo recuperar los datos (posición, tamaño, etc) de un control ubicado debajo del cursor en Delphi 7.

Desde ya, gracias a todos.

[roman]

Utiliza la función FindVCLWindow (de la unidad Controls). Un ejemplo:

Código Delphi [-]
procedure GetControlInfo(Info: TStrings);
var
  Control: TWinControl;

begin
  Control := FindVCLWindow(Mouse.CursorPos);

  if Assigned(Control) then
  begin
    Info.Values['class'] := Control.ClassName;
    Info.Values['name'] := Control.Name;
    Info.Values['height'] := IntToStr(Control.Height);
    Info.Values['left'] := IntToStr(Control.Left);
    Info.Values['top'] := IntToStr(Control.Top);
    Info.Values['width'] := IntToStr(Control.Width);
  end;
end;

El procedimiento coloca en Info, datos acerca del control que esté bajo el cursor al momento de llamarlo. El formato de los datos es

propiedad=valor

de manera que quede cómodo pasarlo a un ValueListEditor.

// Saludos

[Neftali [Germán.Estévez]]

Empezado por roman

Control := FindVCLWindow(Mouse.CursorPos);

Esta no la conocía...

[[Bicho]]

Execelente!!!

casi 11000 mensajes y no deja de sorprender.
Yo tampoco la conocía.

Saludos

[[seoane]]

Vaya, hay funciones para todo. Si la cosa sigue así, cualquier día crearan la función "Mata_a_flanders"

[viveba]

Desde ya que te debo una!!!

Muchísimas gracias, ya mismo lo probaré.