intraweb中iwtreeview如何实现拖曳的功能?

Question

intraweb中iwtreeview如何实现拖曳的功能?
uuuu
  yyyy
    iiiiii
    oooooo
  iuuuu
    koooo
    eoooo
我是想把eoooo拖到yyyy下。。
怎么实现...

Answer 1

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  Litem : tlistitem;
begin
  if not ((source is Tlistview) and (sender is tlistview)) then exit;
  accept;
  litem := (source as tlistview).Items[(source as tlistview).Itemindex];
  if ((sender as tlistview).FindCaption(0,litem.Caption,false,true,true)<>nil) then
  accept := false
end;
这是listview的
Treeview和这个一样

Answer 2

thank's for your answer
但是我要的是iwtreeview得...
iwtreeview没有onDragOver这个...

Answer 3

你是想实现 树内拖放 , 还是Com拖放 ?啊

Answer 4

请问一下树内拖放跟com拖放有何区别?