TTreeView

← →
Витьок (2002-12-14 10:39) [0]

Помогите!!! Как отсортировать такое дерево по алфавиту.
Постоянно оно полностью пересоздаётся. Создаются предки, а у каждого, только один уровень детей.
Нужно отсортировать отдельно предков, а потом и их детей.
(TTreeView.SortType - не помогает)

← →
Song (2002-12-14 10:43) [1]

TTreeView.SortType ?

← →
MBo (2002-12-14 10:43) [2]

Используй CustomSort, разрешая переставлять ноды только с одинаковым родителем.

← →
в (2002-12-14 11:28) [3]

Непонял, можно пример?

← →
MBo (2002-12-14 11:55) [4]

а в хелпе есть пример.

function CustomSortProc(Node1, Node2: Integer; Data: Integer): Integer; stdcall;
begin
Result :=0;
if TTreeNode(Node1).Parent=TTreeNode(Node2).Parent then
Result:= 2*Integer(TTreeNode(Node1).Text>PChar(TTreeNode(Node2).Text))-1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.CustomSort(CustomSortProc,0);
end;

TTreeView Найти похожие ветки