OnGetSelectedIndex

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

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

// TreeView
trv=new TTreeView(frm);
trv.BorderStyle=bsSingle;
trv.Left=trv.Top=10;
trv.Width=frm.ClientWidth-trv.Left*2;
trv.Height=stb.Top-trv.Top*2;
trv.OnGetImageIndex=trv_GetImageIndex;
trv.OnGetSelectedIndex=trv_GetSelectedIndex;

// Список изображений
trv.Images=new TImageList(trv);
icn=new TIcon();
for (i=0;i<3;i++) {
  icn.LoadFromFile(JSPlus.HelpDir+"IMAGE\\TTreeView\\"+i+".ico");
  trv.Images.AddIcon(icn);
}
icn.Delete();

// Заполнение дерева
for (i=1;i<=5;i++) {
  tn1=new TTreeNode(trv);
  tn1.Text="Узел "+i;
  for (j=1;j<=i;j++) {
    tn2=new TTreeNode(tn1);
    tn2.Text="Узел "+i+"-"+j;
  }
}

trv.SetFocus();
frm.ShowModal();

// Обработчик события OnGetImageIndex
function trv_GetImageIndex(trv,trn)
{
  if (trn.HasChildren) {
    trn.ImageIndex=(trn.Expanded) ? 1 : 0;
    return;
  }
  trn.ImageIndex=2;
}

// Обработчик события OnGetSelectedIndex
function trv_GetSelectedIndex(trv,trn)
{
  trn.SelectedIndex=trn.ImageIndex;
}