TreeView: Alle Nodes nur in 2.Ebene sortieren

[Hannes Kuhn]

Hallo,

ich möchte nur die 2.Ebene in meinem TreeView sortieren.

Wie kann ich das machen ?

Viele Grüße
Hannes

[marabu]

Hallo Hannes,

du kannst über die Knoten der ersten Ebene iterieren und deren Unterknoten sortieren:

Delphi-Quellcode:

function NodeCompare(node1, node2: TTreeNode; Data: Integer): Integer stdcall;
begin
  if Data = 0
    then Result := AnsiCompareText(node1.Text, node2.Text)
    else Result := AnsiCompareText(node2.Text, node1.Text);
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  node: TTreeNode;
begin
  with TreeView.Items do
  begin
    node := GetFirstNode;
    while Assigned(node) do
    begin
      node.CustomSort(@NodeCompare, 0, False);
      node := node.getNextSibling;
    end;
  end;
end;

Grüße vom marabu