как перетащить объект на TreeView?

[drronnie]

как сделать чтобы при иперетаскивании (например файла) н treeview
в нём фокус ставился на тот (куст по-моему называется?) короче запись над которой мышь.... ну типа как в проводнике....

[RayShade]

Пропертти OLEDropMode OLEDragMode посмотри. Они д.б. равны 1.

[drronnie]

я в курсе, но меня интересовало, чтобы при перемещении мыши курсор выделения (фокус) наводился на разные записи, т.е. как в проводнике на папки...

[Vi]

Код: Выделить всё

Private Sub TreeView1_OLECompleteDrag(Effect As Long)
  With TreeView1
    ...
    Set .DropHighlight = Nothing
    ...
  End With
End Sub

Private Sub TreeView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, ...)
  With TreeView1
    ...
    Set .DropHighlight = .HitTest(x, y)
    ...
  End With
End Sub

Private Sub TreeView1_OLEDragOver(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, ...)
  With TreeView1
    ...
    Set .DropHighlight = .HitTest(x, y)
    ...
  End With
End Sub