OnCollapse

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

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

// Папки
dol=new TDirectoryOutline(frm);
dol.BorderStyle=bsSingle;
dol.SetBounds(10,10,frm.ClientWidth-20,stb.Top-20);
dol.Directory=getWinDir();
dol.OnChange=dol_Change;
dol.OnCollapse=dol_Collapse;
dol.OnExpand=dol_Expand;
dol.TextCase=tcUpperCase;

frm.ShowModal();

function dol_Change(Sender)
{
  var dol=Sender;

  stb.SimpleText=" Выделенный узел: "+dol.Lines[dol.SelectedItem-1].trim();
}

// Обработчик события OnCollapse
function dol_Collapse(Sender,Index)
{
  var dol=Sender;

  stb.SimpleText=" Узел: "+dol.Lines[Index-1].trim()+" свернут";
}

// Обработчик события OnExpand
function dol_Expand(Sender,Index)
{
  var dol=Sender;

  stb.SimpleText=" Узел: "+dol.Lines[Index-1].trim()+" развернут";
}