список объектов под курсором

[chingiz]

Всем привет. Имеется несколько объектов (TPaintBox) на (TPanel) - один над другим. Необходимо по щелчку мыши узнать сколько объектов под мышкой и список имен этих объектов. Как сделать? подскажите.

[Stilet]

С потолка:

var i:integer;  p:TPoint;
begin      Form2.Caption:='';
 for i:=0 to ComponentCount-1 do begin
  if not (Components[i] is TWinControl) then Continue;
  with Mouse, TWinControl(Components[i]) do begin
   p:=ClientToScreen(Point(Left,Top));
   if
    (CursorPos.X>=p.X)and(CursorPos.Y>=p.Y) and
    (CursorPos.X<=(p.X+Width))and(CursorPos.Y<=(p.Y+Height)) then
   begin
    компонент с именем Name под мышкой
   end
  end;
 end;
end;

[chingiz]

Спасибо Stilet помогло, все работает.

var i:integer;  p:TPoint; myCursorPos: TPoint;
begin      Form2.Caption:='';
 myCursorPos:= Mouse.CursorPos; //(достаточно одного раза)
 for i:=0 to ComponentCount-1 do begin
  if not (Components[i] is TWinControl) then Continue;
  with TWinControl(Components[i]) do begin
   p:=ClientToScreen(Point(0,0)); //p:=ClientToScreen(Point(Left,Top));
   if
    (myCursorPos.X>=p.X)and(myCursorPos.Y>=p.Y) and
    (myCursorPos.X<=(p.X+Width))and(myCursorPos.Y<=(p.Y+Height)) then
   begin
    компонент с именем Name под мышкой
   end
  end;
 end;
end;