узнать имя компонента зная его координаты на форме

[garuna]

собственно, сабж. уже часа полтора не могу найти решение, прошу помощи

[Serge_Bliznykov]

ой, так в общем случае задача решения не имеет. в одной и той же позиции могут находится от нуля до бесконечности компонент.

а так, если Вам это реально надо - перебирайте все компоненты на форме в цикле и ищите те, координаты которых Вам подходят.

p.s. озвучьте задачу, которую Вы пытаетесь решить.

[garuna]

Сообщение от Serge_Bliznykov

ой, так в общем случае задача решения не имеет. в одной и той же позиции могут находится от нуля до бесконечности компонент.

а так, если Вам это реально надо - перебирайте все компоненты на форме в цикле и ищите те, координаты которых Вам подходят.

p.s. озвучьте задачу, которую Вы пытаетесь решить.

на форме расположена панель (pnlContainer), внутри этой панели еще несколько динамически созданных панелей одинаковой высоты и ширины расположенные одна над другой со свойством Align = alTop.
нужно при наведении мыши на одну из панелей узнать имя панели расположенной над ней. для этого решил действовать так:
1) узнать координаты панели над которой находится курсор
2) сместить координаты на несколько пикселей вверх и получить имя панели в этих координатах

на событие OnMouserEnter каждой панели вешаю это:

var
 P1: TPoint;
begin
  P1 := (Sender as TPanel).ClientToParent(Point(0, 0));
  if pnlContainer.ControlAtPos(Point(P1.X, P1.Y-5), False) = nil
  then lbl1.Caption:= 'nil'
  else lbl1.Caption:= pnlContainer.ControlAtPos(Point(P1.X, P1.Y-5), False).Name;

но всегда почему-то возвращается Nil. не могу понять в чем дело.

[jillitil]

VAR
  I, TM, ME: Integer;
  N: STRING;
BEGIN
  TM    := 0;
  ME    := TPanel(Sender).Top;  // ME:=  координатa TOP текущей панели
  FOR I    := 0 TO Self.pnlContainer.ControlCount    - 1 DO
    IF (Self.pnlContainer.Controls[I].Top    > TM)
    AND (Self.pnlContainer.Controls[I].Top    < ME) THEN
    BEGIN
      TM    := Self.pnlContainer.Controls[I].Top;
      N    := Self.pnlContainer.Controls[I].Name;
    END;
  ShowMessage('Панель"'    + N    + '" надомной.');
END;

[garuna]

jillitil, благодарю, я так и сделал в итоге)
вопрос решён.