LiveCode Forums.

Code: Select all

on  mouseMove
   if the optionKey is down then exit mouseMove --guaranteed escape
   if intersect(me,btn 1) then
      set the loc of me to  item 1 of the loc of me + the width of me + 4 & "," & item 2 of the loc of me + the height of me + 4
      answer "collision"
      exit mouseMove
   end if
   set the loc of me to the mouseLoc
end mouseMove

Code: Select all

local sCurControlID
on mousedown
   put the short id of the target into sCurControlID
   grab me
end mousedown

on mousemove
   if the optionKey is down then exit mouseMove --guaranteed escap, 
   get controlIntersect(sCurControlID)
   if it <> empty then
      beep -- not available on iOS
      put the short name of control it into fld "fDev" -- spy intersects
   end if
end mousemove

function controlIntersect pControlID
-- you may use a list of targets on open card instead a loop for all controls to make it faster
   put empty into tNumControl
   repeat with i = 1 to the num of controls
      put the short id of control i into tOneControlID
      if tOneControlID = pControlID then 
         next repeat
      end if
      if intersect(control id sCurControlID,control i) then 
         put i into tNumControl
         exit repeat
      end if
   end repeat
   return tNumControl
end controlIntersect