AlphaSort

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TTreeNodes AlphaSort";
frm.Width =525;
frm.Height=375;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Сортировать"';

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

// Заполнение дерева
trv.LoadFromString(
"Узел 2\n"+
" Узел 2-2\n"+
" Узел 2-1\n"+
"Узел 1\n"+
" Узел 1-1\n"+
"Узел 3\n"+
" Узел 3-1\n"+
" Узел 3-3\n"+
" Узел 3-2"
);

// Кнопка
btn=new TButton(frm);
btn.Caption="Сортировать";
btn.Width=btn.TextWidth(btn.Caption)+20;
btn.Left=(trv.Left+trv.Width+frm.ClientWidth-btn.Width)/2;
btn.Top =(stb.Top-btn.Height)/2;
btn.OnClick=btn_Click;

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

// Обработчик события OnClick
function btn_Click(btn)
{
  trv.Items.AlphaSort(true);
  trv.SetFocus();
}