Как перетащить строку (запись) из узла_1 в узел_2, 
когда кол-во записей в развёрнутом узле, например,
 300 , а кол-во записей, помещаемых в контрол treeView,
например,  15  ?  (юзверь видит всего  15  записей ! )
Если перетаскиваемая запись находится в конце 
развёрнутого узла, то нет проблем зацепить и опустить - 
и перетаскиваемая запись и свёрнутый узел находятся в 
области прямоугольника, занимаемом контролом 
TreeView. В противном случае при переходе через границу
Прямогольника указатель мыши меняет форму на  
перечёркнутый круг и я НЕ ЗНАЮ КАК опустить на
неразвёрнутый узел, который НЕВИДИМ.

 1 .Как создать невидимый объект
n_cst_tvsrv_dragscroll ?

File \ New \ вкладка PB Object \ 
Если Standard Class, то ничего подобного с TreeView нет
 Какой значок выбирать ?
 2 .Если выбрать значок Standard Class, то 
Тип Service ?

 3 . Как объявить u_tv

When you want to drag an object into a treeview, you automatically want the treeview to scroll when needed. This little service provides this functionality.
The service is called n_cst_tvsrv_dragscroll, which is inherited from the PB nonvisual object. I have incorporated this service into my u_tv object as follows: 
For u_tv, declare an instance variable inv_DragScroll of type n_cst_tvsrv_DragScroll. 
For the DragWithing event code: 
if IsValid(inv_DragScroll) then
inv_DragScroll.Event ue_dragwithin(handle)
end if
To start the service, create an objectfunction called of_DragScroll ( ab_switch boolean ) return integer: 
if ab_Switch then
if not IsValid(inv_DragScroll) then
inv_DragScroll = create n_cst_tvsrv_DragScroll
inv_DragScroll.of_SetRequestor(This)
end if
else
if IsValid(inv_DragScroll) then
Destroy inv_DragScroll
end if
end if
return  1 
Code This.Of_DragScroll(FALSE) in the destructor event of u_tv so that the service will be destroyed ( if needed ) when the treeview control is destroyed.