TTreeView auf Editieren stellen

[DGL-luke]

OK.... da es ja keine abzweigungen gibt, kann man auch gleich nach unten durchtraversieren:

Delphi-Quellcode:

procedure TForm2.TreeView1Click(Sender: TObject);
var node: TTreeNode;
    item, root, c1,c2: TTreeNode;
begin
  if ((Sender as TTreeView).Selected <> nil) then
    begin
      node := (Sender as TTreeView).Selected;
      case Node.Level of
        3: item := node;  //translation geklickt
        2: item := node.getFirstChild; //objektname geklickt
        else Exit; //was anderes geklickt -> Abbruch
      end;
      c2 := item.Parent; //jetzt einfach nach oben durchhangeln
      c1 := c2.Parent;
      root := c1.Parent;
    end;
end;

Eigentlich immer noch relativ einfach... die OH hat zum Thema TTreeNode(s) auch einiges zu sagen