Oberste Node in TreeView finden

[calculon]

Beide ungetesetet, aber so würd' ich mal ansetzen...

Delphi-Quellcode:

function GetNodeParent(Node: TTreeNode): TTreeNode;
begin
  result := Node.TopItem;
end;

Delphi-Quellcode:

function GetTreeViewRoot(tv: TTreeView): TTreeNode;
begin
  result := nil;
  if tv.Items.Count > 0 then
    result := tv.Items.Item[0];
end;

Gruß
--