OnChanging

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

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

// TreeView
trv=new TTreeView(frm);
trv.BorderStyle=bsSingle;
trv.Left=trv.Top=10;
trv.Width=150;
trv.Height=stb.Top-trv.Top*2;
trv.OnChanging=trv_Changing;

// Правая панель
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.Left=trv.Left*2+trv.Width;
pnl.Top =trv.Top;
pnl.Width =frm.ClientWidth-pnl.Left-trv.Left;
pnl.Height=trv.Height;
pnl.Color=trv.Color;

// Заполнение дерева
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();
stb.SimpleText=" Узел 3 не выбирается";
frm.ShowModal();

// Обработчик события OnChanging
function trv_Changing(trv,trn,AllowChange)
{
  if (trn.Text=="Узел 3")
    return false;

  stb.SimpleText=" "+(pnl.Caption=trn.Text);
}