如何把ListBox中的內容拖曳到另一個ListBox中

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    在應用程序中把在ListBox中選中的內容復制到另一個ListBox中常用的方法有兩種第一種方法是雙擊源ListBox把內容復制到目標ListBox中第二種方法是使用拖曳的方式把源 ListBox中的內容復制到目標ListBox中第二種方法使用起來更加地直觀操作便捷本例是把城市名稱從源ListBox中拖曳到目標 ListBox中如圖所示

http://developcsaicn/delphi/images/jpg>
圖  把ListBox中的內容拖曳到另一個ListBox中

    在拖曳過程中判斷如果Source對象是ListBox將允許進行拖曳在拖曳完成後把源ListBox中的內容復制到目標ListBox中主要代碼如下
    procedure TFormListBoxDragOver(Sender Source: TObject; X Y: Integer;
      State: TDragState; var Accept: Boolean);
    begin
    //如果源目標是ListBox允許進行拖曳
      if TListBox(Source) = ListBox then
       Accept := True;
    end;
    procedure TFormListBoxDragDrop(Sender Source: TObject; X Y: Integer);
    begin
      ListBoxItemsAdd(ListboxItems[ListBoxItemIndex]);
    end;

From:http://tw.wingwit.com/Article/program/Delphi/201311/8513.html