OnClick

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

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Выбирайте пункты меню";

// Главное меню формы
mnm=new TMainMenu(frm);

// Список изображений
iml=mnm.Images=new TImageList(mnm);

// Пункты главного меню
icn=new TIcon();
for (i=1;i<=5;i++) {
  mi1=new TMenuItem(mnm);
  mi1.Caption="Раздел "+i;
  mi1.OnClick=mni_Click;

  icn.LoadFromFile(JSPlus.HelpDir+"IMAGE\\TMainMenu\\"+(i-1)+".ico");
  iml.AddIcon(icn);

  for (j=1;j<=i;j++) {
    mi2=new TMenuItem(mi1);
    mi2.Caption="Элемент "+i+"-"+j;
    mi2.ImageIndex=j-1;
    mi2.OnClick=mni_Click;
  }
}
icn.Delete();

frm.ShowModal();

// Обработчик события OnClick
function mni_Click(mni)
{
  var mni_Str=mni.Caption.replace("&","");

  stb.SimpleText=" Выбран "+mni_Str;
  if (mni_Str.indexOf("-")>0)
    alert(stb.SimpleText);
}

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

// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие компонента TMenuItem OnClick";
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;
}