Treeview.Selected.Index Frage !!!

[Delphiturbo]

Hi

ich möchte wie im Bild, wenn ich auf "a" klicke, bekomme ich 5 in Edit-Feld und nicht 1

Hat jemand eine Edee?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:= inttostr(treeview1.Selected.index);
// Der Code zeigt die Items relativ zu Gruppe (Parent) und nicht absolut)
end;

end.

[marabu]

Hi,

bin mir nicht sicher, ob du das wissen möchtest, aber es gilt:

(1) Index gibt die 0-basierte Position der ChildNodes mit demselben Parent an.
(2) AbsoluteIndex gibt die 0-basierte Position eines Node bei einem Depth-First-Left-To-Right TreeWalk an.

Grüße vom marabu

[Delphiturbo]

Hallo

mit AbsoluteIndex bekomme ich 6 statt 5
also ich irdendwie Parentsindex ignorieren. Es muss nur von children genohmen !

[marabu]

Suchst du das hier?

Delphi-Quellcode:

function AbsoluteIndex(node: TTreeNode): Integer;
begin
  if Assigned(node) and (node.Level = 1)
    then Result := node.AbsoluteIndex - node.Parent.Index
    else Result := -1;
end;