ok, so hats funktioniert:
Code:
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
Checknode: TTreeNode;
x: Byte;
begin
try
//--Zähler
x:=0;
//----Irgendein gewählter Treenode
Checknode:=TreeView1.Selected;
while Checknode.Parent<>nil do begin
Inc(x);
Checknode:=Checknode.Parent;
end;
ShowMessage(Treeview1.Selected.Text+' hat '+InttoStr(x)+' Parentnodes');
finally
end;
end;
meine frage jetzt aber folgendes...wie bekomme ich jetzt den text, von den parents zu sehen? das heißt, wenn es 2 parents gibt das ich den text von parent 1 + den text von parent 2 bekomme