procedure THITVT_SelectNode._work_doSelectNode;
var n:cardinal;
    d:TData;
begin
   d := ReadData(_Data, _data_ID); 
   n := _prop_TreeView.findNode(d);;
   _prop_TreeView.Control.TVSelected := n;
   if n = 0 then
     _hi_onEvent(_event_onSelectFailed)
   else
     _hi_onEvent(_event_onSelectNode);
end;

procedure THITreeViewTrain._OnClick(Obj:PObj);
var d:PData;
begin
  if Control.TVSelected = 0 then exit;
  d := Control.TVItemData[Control.TVSelected];
  _hi_onEvent_(_event_onClick, d^);
end;