procedure THITreeViewA._OnClick;
begin
   //if _prop_DataType = 1 then
     _hi_OnEvent(_event_onClick,Control.TVItemText[Control.TVSelected])
   //else  _hi_OnEvent(_event_onClick,Control.CurIndex);
end;