OnPopup

var stb_Text=" Кликните правой кнопкой мыши в области формы";

// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие компонента TPopupMenu OnPopup";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=stb_Text;

// Всплывающее меню
pum=frm.PopupMenu=new TPopupMenu(frm);
pum.Images=new TImageList(pum);
pum.OnPopup=pum_Popup;

for (i=0;i<5;i++) {
  mni=new TMenuItem(pum);
  mni.Caption="Пункт "+(i+1);
  mni.ImageIndex=i;
  mni.OnClick=mni_Click;

  // Иконка
  icn=new TIcon();
  icn.LoadFromFile(JSPlus.HelpDir+"IMAGE\\TPopupMenu\\"+i+".ico");
  pum.Images.AddIcon(icn);
  icn.Delete();
}

frm.ShowModal();

// Обработчик события OnClick
function mni_Click(mni)
{
  alert(" Выбран "+mni.Caption);
  stb.SimpleText=stb_Text;
}

// Обработчик события OnPopup
function pum_Popup(pum)
{
  var x=pum.PopupPoint.x,y=pum.PopupPoint.y;

  stb.SimpleText=" Всплытие меню в точке: "+x+","+y;
}