【结】ListBox怎么实现用鼠标来调动数据的上下位置?

毁灭代码

如题
怎么实现用鼠标任意调上下位置??

zfang

百度一下，delphi的相关资料。

毁灭代码

DragFile,popFile:String;//拖动的文件名 (全局)  

procedure   TfrmMain.lbxMyListClick(Sender:   TObject);   
begin   //单击时确定要拖动的文件名   
    if   TListbox(Sender).ItemIndex   <>-1   then   
        DragFile:=TListbox(Sender).Items[TListbox(Sender).itemIndex]   
    else   
        DragFile:=’’;   
end;   

procedure   TfrmMain.lbxMyListDragOver(Sender,   Source:   TObject;   X,   Y:   

Integer;   
    State:   TDragState;   var   Accept:   Boolean);   
var   
    i,j:integer;   
    FileName:string;   
    MyPoint:TPoint;   
begin   //在列表框中拖动项目改变其位置   
    if   DragFile<>’’   then   
    begin   
        MyPoint.X:=X;     MyPoint.Y:=Y;   
        i:=TListbox(Sender).ItemAtPos(MyPoint,True);//获取要拖放到的位置   
        j:=   TListbox(Sender).Items.IndexOf(DragFile);   
        if   (i<>-1)   and   (j<>-1)   and   (i<>j)   then   
        begin   
                TListbox(Sender).Items.Move(j,i);   
                TListbox(Sender).Selected:=True;   
        end;   
    end;   
end;

毁灭代码

dragMode属性改成dmAutomatic

毁灭代码

结贴