VirtualStringTree OnNodeClick question

65 views
Skip to first unread message

Tua

unread,
Feb 25, 2016, 6:58:38 PM2/25/16
to Virtual Treeview
procedure TfrmReports.vstNodeClick(Sender: TBaseVirtualTree; const HitInfo: THitInfo);
var
  vtreenode:  PVTreeNode;

begin
  vtreenode := HitInfo.HitNode;



 HitInfo.HitNode is a PVirtualNode.

How can I typecast it to PVTreeNode so I an get at my customdata?

Thanks for all help!


Tua

unread,
Feb 26, 2016, 11:28:32 AM2/26/16
to Virtual Treeview
This works:

    1. procedure TfrmReports.vstNodeClick(Sender: TBaseVirtualTree; const HitInfo: THitInfo);
    2. var
    1.   vnode:        PVirtualNode;
    2.   vtreenode:  PVTreeNode;
    3.  
    4. begin
    5.    vnode := HitInfo.HitNode;  
    6.    vtreenode := Sender.GetNodeData(vnode);
    7.    ShowMessage(vtreenode^.SomeDataString);

    joachim.marder

    unread,
    Feb 27, 2016, 4:47:31 AM2/27/16
    to Virtual Treeview
    In V6.2 it's even simpler:

      HitInfo.Node.GetData<PVTreeNode>()
    Reply all
    Reply to author
    Forward
    0 new messages