ControlAtPos

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод визуальных компонентов ControlAtPos";
frm.Width =450;
frm.Height=300;
frm.OnMouseMove=all_MouseMove;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=
" Перемещайте указатель мыши над формой и ее элементами";
stb.OnMouseMove=all_MouseMove;

// Кнопка
btn=new TButton(frm);
btn.Caption="Кнопка";
btn.Left=frm.ClientWidth-btn.Width-15;
btn.Top =stb.Top-btn.Height-15;
btn.OnMouseMove=all_MouseMove;

// Панель
pnl=new TPanel(frm);
pnl.Caption="Панель";
pnl.BorderStyle=bsSingle;
pnl.Left=pnl.Top=15;
pnl.Width =frm.ClientWidth-pnl.Left*2;
pnl.Height=btn.Top-pnl.Top*2;
pnl.OnMouseMove=all_MouseMove;

frm.ShowModal();

// Обработчик события OnMouseMove
function all_MouseMove(Sender,shift,x,y)
{
  var obj,pt=new TPoint();

  pt.x=x;
  pt.y=y;
  if (Sender.ClassName()!="TForm")
    pt=Sender.ClientToParent(pt);
  obj=frm.ControlAtPos(pt);
  pt.Delete();

  stb.SimpleText=" "+pt.x+","+pt.y+": "+
  ((obj==null) ? "нет объекта" : obj.ClassName());
}