[Старый]

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

[Yurk@]

предположу: можно перебрать все объекты на форме в цыкле и при нахождении TpaintBox проверять "входят ли координаты мышки в плоскость найденого TpaintBox" ... если да - получаем из найденого компонента все данные и засчитываем его)

Код:

var
pb : TpaintBox;
i:integer;
begin
for i:=0 to Form1.ComponentCount-1 do
  if (Form1.Components[i] is TpaintBox) and (<проверка на позицию мыши>) then
    showmessage(Form1.Components[i].Name);
end;

[Старый]

Сообщение от Yurk@

предположу: можно перебрать все объекты на форме

Как вариант в принципе можно, к сожалению сейчас делфи под рукой нет, не могу попробовать. Немного введу поправку, - объекты TpaintBox находятся не на самой форме, а на панели - можно перебрать компоненты только на панели?, или придется проверять все объекты на форме? Хотя в принципе лишних объектов в приложении не так уж и много, и на скорости работы не должно повлиять, но всетаки...

[Yurk@]

не, прийдется перебирать всё

[Старый]

Сообщение от Yurk@

не, прийдется перебирать всё

Спасибо за помощь, вот что получилось.

Код:

var 
 i:integer;  
 p:TPoint; 
 myCursorPos: TPoint;
begin      
 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));
   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;