Treeview - Index ?

[devnull]

Ich glaub ich habs selber gelöst ...

Delphi-Quellcode:

var hauptknoten_nummer : integer;
    root : tTreeNode;
begin
  hauptknoten_nummer := Form1.Gruppen.Selected.Index;

  if hauptknoten_nummer = 0 then
     hauptknoten_nummer := Form1.Gruppen.Selected.Parent.Index;

  root := Form1.Gruppen.Items[hauptknoten_nummer];
  
  if root.HasChildren then 
     showmessage(root.item[root.count-1].text);
end;

Kann man doch so machen ?!

devnull