Aus einem unerklärlichen Grund ist die TreeView property eines TreeView-Items als protected deklariert. Daher muss man einen kleinen Trick anwenden:
Delphi-Quellcode:
type
TIWTreeViewItemCracker = class (TIWTreeViewItem)
end;
Delphi-Quellcode:
procedure ...
var
LTreeView: TIWTreeView;
begin
LTreeView := TIWTreeViewItemCracker(Sender as TIWTreeViewItem).TreeView;
...
end;