OnCollapse

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

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Сверните любой узел";

// TOutline
otl=new TOutline(frm);
otl.BorderStyle=bsSingle;
otl.Left=otl.Top=10;
otl.Width=frm.ClientWidth-otl.Left*2;
otl.Height=stb.Top-otl.Top*2;
otl.OnCollapse=otl_Collapse;

// Заполнение дерева
for (i=1;i<=9;i++) {
  on1=new TOutlineNode(otl);
  on1.Text="Узел "+i;
  for (j=1;j<=i;j++) {
    on2=new TOutlineNode(on1);
    on2.Text="Узел "+i+"-"+j;
  }
}

otl.FullExpand();
otl.SetFocus();
frm.ShowModal();

// Обработчик события OnCollapse
function otl_Collapse(otl,oni)
{
  alert(otl.Items[oni].Text+" свернут");
}