引言: 請問!!! 我的問題是我想讓User執行時可以用滑鼠拖曳調整項目位置 但是滑鼠拖曳後要如何將User拖曳的項目和拖曳後的項目對調呢?? 麻煩各位高手替小女子解答一下感激不盡^_^ < face="Verdana, Arial, Helvetica">

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
     var p: tpoint;
         mIndex, mDropItem: Integer;
         s: string;
begin
     with (Source as TListBox) do begin
          p.x := x;
          p.y := y;
          // 原未被拖曳的位置index
          mDropItem:= ListBox1.ItemIndex;
          // 最新拖曳的位置index
          mIndex:= ListBox1.ItemAtPos(p, True);
          // 對調兩者 
          if mIndex >= 0 then begin
             s:= ListBox1.Items.Strings[mDropItem];
             ListBox1.Items.Delete(mDropItem);
             ListBox1.Items.Insert(mIndex, s);
          end;
     end;
end;    procedure TForm1.Listbox1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
     Accept:= (Source is TListBox);
end;

在上面兩個event 上照這樣寫就可以用滑鼠來移動項目