Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c